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.REM % 
IDENTIFICATION 
PRODUCT CODE: AC~F615A-MC 
PRODUCT NAME : CKKACAD 11/44 POWER FAIL 
DATE CREATED: 1-MAR~79 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHORS : CHUCK ROBINSON + 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT COR- 
PORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
+ peer gh OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLED BY DIGI- 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 


SEQ 0001 
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90 
91 
92 
93 Tw ABSTRACT 


THIS PROGRAM IS MADE UP OF 11 SUBTESTS TO CHECK OUT THE 
POWER FAIL ON THE 11/44. THE 2 MSEC. POWER DOWN AND POWER 
UP TIME IS CHECKED ON EACH POWER FAIL. INITIALLY POWER FAILS 
ARE TRIED IN ALL PROCESSOR MODES THEN UNDER ERROR CONDITIONS LIKE 
STACK OVERFLOW, TIME OUT, AND ODD ADDRESS AND MEMORY MANAGEMENT ABORTS. 
FINALLY A MEMORY VOLATILITY TEST IS RUN ON ALL AVAILABLE MEMORY. 





r REQUIREMENTS 


2.1 EQUIPMENT 
PDP11/44 STANDARD COMPUTER WITH UP TO 1M WORDS OF CORE MEMO- 
THIS PROGRAM WILL WORK WITH AUTOMATIC POWER FAIL HARDWARE 
(MANUFACTURING ONLY) OR WITH MANUALLY TRIGGERED POWER 
FAILURES FOR EACH TEST. 
2.2 STORAGE 


PROGRAM STORAGE = THE ROUTINES USE MEMORY 0 = 10142 


2.3 PRELIMINARY PROGRAMS 


IT IS ASSUMED THAT CPU,TRAPS,MEMORY MANAGEMENT AND UNIBUS MAP 
DIAGNOSTICS HAVE BEEN RUN SUCCESSFULLY. 


5. LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR ''XXDP"" MEDIA. 


4. STARTING PROCEDURE 
4,1 STARTING ADDRESS 

200 IS THE PROGRAM STARTING ADDRESS 
4.2 CONTROL SWITCH SETTINGS 


ee ee ee ee ee ee ee ee ee ee ee ee ee eee eee 
WNWWNWNWNNWNWRNPOMPNO NINO NONUNDNYD 2 9 PA PPP OS PODOQDOOCOO Oo 


140 SWITCH REGISTER <14> CONTROLS REPEATING OF A_ FAILING TEST. 
141 THIS BIT MUST BE SET TO A 1 (AFTER ERROR HALT) EVERY TIME 
iss THE TEST IS TO BE REPEATED. 

144 

145 
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SEQ 0005 


151 

152 

153 

134 5 OPERATING PROCEDURE 

196 5.1 MANUAL 

158 START PROGRAM AT ADDRESS 200. 

159 A MESSAGE WILL BE TYPE INDENTIFYING THE NAME OF THE PROGRAM 
160 THE SIZE OF MEMORY, AND RUNNING INSTRUCTIONS. THE NUMBER O 
161 EACH TEST WILL BE PRINTED AT THE BEGINNING OF EACH TEST. 
162 MANUALLY POWER DOWN THEN UP AFTER EACH TEST NUMBER APPEARS 
163 ON THE TTY. DO THIS FOR EACH TEST UNTIL THE END OF PASS 

164 MESSAGE IS RECEIVED. 

166 5.2 AUTOMATIC 

168 START THE PROGRAM AT 200,THE PROGRAM SIZES FOR THE PRESENCE OF 
169 AUTOMATIC POWER FAIL HARDWARE.IF FOUND,TESTING WILL BE PROCEED 
170 WITH NO MANUAL INTERVENTION REQUIRED. TEST NUMBERS WILL BE PRINTED 
al PRIOR TO EACH TEST. 

173 5.3 APT SETUP 

195 

176 THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 
177 ARE FOR EXECUTION WITH A 11/46 PROCESSOR, (CACHE, 

178 16k CORE MEMORY, AND 300 BA 

179 THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 

180 1. — TABLE 'A' IS USED FOR APT DUMP MODE. 

182 2. — TABLE 'B' IS USED FOR APT QV AND RUN TIME MODES. 

183 SENVM=240 SUPRESSES TYPEOUTS TO THE TERMINAL AND 

184 $SWREG=4000 INHIBITS TEST ITERATIONS 

186 1ST PASS LONGE ST ADDI TIONAL 

187 RUN TIME TEST TIME RUN TIME 

188 5 5 0 

189. 

190 

1 RAL elgg STS” a ne Coe ae Pee8. BY; Ub a geno ones 

192 

193 

194 A 6 

195 E -MODE /S-MODE 000/000 240/001 

196 ($ENVM/$ENV) 

198 SWITCH REGISTER 1 000000 004000 

199 ‘$SwREG) 

201 SWITCH REGISTER 2 000000 000000 

202 CPU TYPE/OPT IONS 00/0000 00/0000 


Sor MEMORY MAP CODE 1 000/00000000 000/00000000 
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SUBROUTINE ABSTRACT 
PDWDWN AND POWUP 


THESE ROUTINES ARE USED TO SAVE AND RESTORE VITA! REGISTERS 
AND TEST THE TIME ALLOWED FOR POWER FAIL BY THE PROCESSOR. 


ERRORS 
ERROR PRINTOUT 


THE PROGRAM WILL IDENTIFY THE FAILING TEST AND PROVIDE 
PERTENANT INFORMATION ON ERROR, 


ERROR HALTS 


AFTER AN ERROR PRINTOUT, THE PROGRAM WILL HALT AND RETURN 
CONTROL TO THE CONSOLE. 

IF USING POWER FAIL HARDWARE AND YOU WISH TO STOP THE PROCESSOR 
YOU SHOULD USE THE HALT SWITCH ON THE FRONT PANEL,THE CONSOLE 
CTRL P WILL HANG UP TTY.TO GET IN CONSOLE MODE PUT HALT SWITCH 
ON,TO GET BACK INTC PROGRAM SET THE SWICTH TO RUN. 


IF AN ERROR OCCURS IN TEST 11 (THE MEMORY VOLITILITY TEST) 

THE PHYSICAL ADDRESS OF THE BAD MEMORY LOCATION CAN BE 

FOUND BY USING PAR. Ty. AS BITS <21:6> AND ADDING VIR.ADD 
LOCATION <12:0> TO IT. 

IF AN ERROR IS DETECTED IN THE POWER DOWN OR POWER UP SUBROUT INE 
THEN CONTINUING AFTER THE ERROR HALT, WILL RESTART THE PROGRAM 
AT ADDRESS 200. 


SEQ 0006 
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SEQ 0007 


251 6.5 ERROR RECOVERY 
253 CONTINUE OR RESTART AT 200 


RESTRICTIONS 
258 NONE 


rm 
Vv 
Oo 
™N 


261 8. MISCELLANEOUS 


264 8.1 EXECUTION TIME 
266 5 SEC IF IN AUTOMATIC , N/A IF IN MANUAL 


269 8.2 STACK POINTER 
271 STACK IS INITALLY SET TO 1100 


TITLE CKKACAO 11744 POWER FAIL 
;*COPYRIGHT (C) 1979 

:*DIGITAL EQUIPMENT CORP. 

: *MAYNARD , MASS. 01754 


! #PROGRAM BY CHUCK ROBINSON 


THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
;*PACKAGE (MAINDEC=17=-DZQAC-C3), JAN 19, 1977. 
* 


tm 
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SEQ 0008 
276 
289 E 
299 
291 
292 -SBTTL OPERATIONAL SWITCH SETTINGS 
2 
* SWITCH USE 
* 14 LOOP ON TEST 
293 * 10 INHIBIT BELL AT END=-OF -PASS 
325 -SBTTL BASIC DEFINITIONS 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK= 1100 :sFIRST ADDRESS OF THE STACK 
001100 KERSTK= STACK 3 :KERNEL STACK 
000700 SUPSTK= STACK=200 3s SUPERVISOR STACK 
000600 USESTK= STACK-300 ;;USER STACK 
104000 ERROR=EMT 
000004 SCOPE=I0T 
177776 PS= 177776 ;zPROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT= kd a 7:STACK LIMIT REGISTER 
177772 PIRQ= 177772 ; PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 ; HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 ; ;HARDWARE DISPLAY REGISTER 
177546 LKS= 177546 3sLINE CLOCK (KW11-L) STATUS REGISTER 
ae «tates DEF INI TIONS 
000011 3:CODE FOR HORIZONTAL TAB 
000012 tre 12 ;:CODE LINE FEED 
000015 CR= 15 7:CODE CARRIAGE RETUR 
000200 CRLF= 200 3:CODE FOR CARRIAGE RETURN=L INE FEED 
;*GENERAL PURPOSE REGISTER coker iter 
000000 RO= 20 ; GENERAL REGISTER 
000001 R1= 1 GENERAL REGISTER 
000002 . R2= ee ; GENERAL REGISTER 
000003 R3= x3 ;:GENERAL REGISTER 
000004 R4= 24 GENERAL REGISTER 
000005 R5= 25 ;:GENERAL REGISTER 
R6= %6 ;:GENERAL REGISTER 


000007 R7= %7 ;;GENERAL REGISTER 





i 7 
CKKACAQ 11/44 POWER FAIL MACRO M1111 25=SEP=79 12:55 PAGE 64-1 
BASIC DEFINITIONS 


46 sz STACK POINTER 


3 PROGRAM COUNTER 


s*PRIORITY LEVEL DEFINITIONS 

PRO= 0 7 zPRIORITY 
7-PRIORITY 
; PRIORITY 
72PRIORITY 
7zPRIORITY 
7zPRIORITY 
3 PRIORITY 
7zPRIORITY 


3*""SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


NOWESWHR-O 


;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 100000 
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009250 


177740 


177752 


177760 
177762 


177764 
177766 
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= 20 
BITQ3= 10 
4 


@ 
ms 
++ 
oO 
~ 
" 
nm 


BITOO= 1 

BIT9=B1T09 
B1T8=81T08 
BIT7=B1T07 
BIT6=B1T06 
B1T5=B1T05 
BIT4=B1T04 
BIT3=BIT03 
BIT2=B1T02 
B1T1=B1T01 
B1T0=81T00 
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RRS 
SEQ 0010 


; *BASIC "*CPU'' TRAP VECTOR TIME oUF 


EMTVEC= 30 
TRAPVE C=34 
TKVEC= 60 


TPVEC= 
LKVEC= 


64 


100 
CACHVEC=114 


PIRQVEC=240 
MMVEC= 250 


. SBTTL 


HITMIS 
- SBTTL 


SIZELO 
SIZEHI 


SYSTID 
CPUERR 


~ SBTTL 


2 
CACHE 


177740 


nino i 
— 
N 
N 
™~N 
* 
oO 


177752 


; MEMORY 
REGISTER DEF INITIONS 


TIME OUT AND OTHER ERRORS 
: | RESERVED AND ILLEGAL INSTRUCTIONS 


33; TRACE TRAP 

; ;BREAKPOINT TRAP (BPT) 

32 INPUT/OUTPUT TRAP (IOT) **SCOPE** 

7 sPOWER FAIL 

TT TRAP (EMT) **ERROR** 
TRAP 


‘TTY K KEYBOARD VECTOR 
;TTY PRINTER VECTOR 
‘LINE CLOCK (KW11-L) VECTER 
;: CACHE ERROR INTERRUPT VECTOR 
; s PROGRAM INTERRUPT REQUEST VECTOR 
MANAGEMENT VECTOR 


;;LOWER 16 BiTS OF ADDRESS THAT CAUSED ERROR 

;;UPPER SIX BITS OF ADDRESS THAT “AUSED ERROR 
+ ¢ CACHE ERROR REGISTER 

;;MEMORY CONTROL REGISTER 

> MEMORY MAINTENENCE REGISTER 

3;HIT MISS REGISTER *'1"* IMPLIES HIT IN CACHE 


CPU REGISTER DEF INITIONS 


= 177760 
= 177762 


177764 
177766 


; MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
3:10 GET TO THE LAST 32 WORDS OF MEMORY 
3 sHIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
2 CURR ENTLY ALL ZERO 

SYSTEM ID REGISTER 
::CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 
3. THE TRAP TO ERRVEC (000004) 


MEMORY MANAGEMENT DEF INI TIONS 
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MEMORY MANAGEMENT DEF INI TIONS 






SEQ 0011 






:*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
177572 MMRO= 177572 





172516 SR3=MMR 3 
;*USER ‘'I'' PAGE DESCRIPTOR REGISTERS 









177600 UIPDRO= 177600 
177602 UIPDR1= 177602 
177604 UIPDR2= 177604 
177606 UIPDR3= 177606 
177610 UIPDR4= 177610 
77612 UIPDR5= 177612 
177614 UIPDR6= 177614 
177616 UIPDR7= 177616 






;*USER "D'' PAGE DESCRIPTOR REGISTORS 


















177620 UDPDRO= 177620 
177622 UDPDR1= 177622 
177624 UDPDR2= 177624 
177626 UDPDR3= 177626 
177630 UDPDR4= 177630 
177632 UDPDR5= 177632 
177634 UDPDR6= 177634 
177636 UDPDR7= 177636 
7*USER ‘'I'' PAGE ADDRESS REGISTERS 
177640 UIPARO= 177640 
177642 UIPAR1= 177642 
177644 UIPAR2= 177644 
177646 UIPAR3= 177646 
177650 UIPAR4= 177650 
177652 UIPARS= 177652 
177654 UIPAR6= 177654 
177656 UIPAR7= 177656 






;*USER ‘'D'' PAGE ADDRESS REGISTERS 
177660 UDPARO= 177660 







177674 UDPAR6= 177674 
177676 UDPAR7= 177676 


;*SUPERVISOR ‘I’ PAGE DESCRIPTOR REGISTERS 






M 1 
CKKACAO 11/44 POWER FAIL MACRO M1111 25=SEP=79 12:55 PAGE 64-4 


MEMORY MANAGEMENT DEFINITIONS SEQ 0012 
172200 SIPDRO= 172200 
172202 SIPDR1I= 172202 
172204 SIPDR2= 172204 
172206 SIPDR3= 172206 
172210 SIPDR4= 172210 
172212 SIPDRS5= 172212 
172214 SIPDR6= 172214 
172216 SIPDR7= 172216 
;*SUPERVISOR ‘D'’ PAGE DESCRIPTOR REGISTERS 
172220 SDPDRO= 172220 
172222 SDPDR1= 172222 
172224 SDPDR2= 172224 
172226 SDPDR3= 172226 
172230 SDPDR4= 1722350 
172232 SDPDR5= 172232 
172234 SDPDR6= 172234 
172236 SDPDR7= 172236 
;*SUPERVISOR ‘‘I’' PAGE ADDRESS REGISTERS 
172240 SIPARO= 172240 
172242 SIPAR1= 172242 
172244 SIPAR2= 172244 
172246 SIPAR3= 172246 
172250 SIPAR4= 172250 
172252 SIPARS= 172252 
172254 SIPAR6= 172254 
172256 SIPAR7= 172256 
;*SUPERVISOR ‘D'’ PAGE ADDRESS REGISTERS 
172260 SDPARO= 172260 
172262 SDPAR1= 172262 
172264 SDPAR2= 172264 
172266 SDPAR3= 172266 
172270 SDPAR4= 172270 
172272 SDPARS= 172272 
172274 SDPAR6= 172274 
172276 SDPAR7= 172276 
;*KERNEL ‘‘I'' PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPDR1= 172302 
172 KIPDR2= 172304 
172306 KIPDR3= 172306 
172310 KIPDR4= 172310 
172312 KIPDR5= 172312 
172314 KIPDR6= 172314 
172316 KIPDR7= 172316 


;*KERNEL 'D’' PAGE DESCRIPTOR REGISTERS 
172320 KDPDRO= 172320 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0013 
172322 KDPDR1= 172322 
172324 KDPDR2= 172324 
172326 KDPDR3= 172326 
17233 KDPDR4= 172330 
172332 KDPDR5S= 172332 
172334 KDPDR6= 172334 
172336 KDPDR7= 172336 
;*KERNEL "'I'' PAGE ADDRESS REGISTERS 

172340 KIPARO= 172340 
172342 KIPAR1= 1 

172364 KIPAR2= 172344 
172346 KIPAR3= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 KIPAR7= 172356 

7 *KERNEL ‘D*’ PAGE ADDRESS REGISTERS 

172360 KDPARO= 172360 
172362 KDPAR1= 172362 
172 KDPAR2= 172364 
172 KDPAR3= 172366 
172370 KDPARS= 172370 
172372 KDPARS= 172372 
172374 KDPAR6= 172374 
172376 KDPAR7= 172376 


-SBTTL UNIBUS MAP REGISTER DEFINITIONS 


;*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXX* 
;*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED *MAPHXX' 


170200 MAPLOO = 170200 
170202 MAPHOO = 170202 
170204 MAPLO1 = 170204 
170206 MAPHO1 = 170206 
170210 MAPLO2 = 170210 
170212 MAPHO2 = 170212 
170214 MAPLO3 = 170214 
170216 MAPHO3 = 170216 
170220 MAPLO4 = 170220 
170222 = 170222 
170224 MAPLOS = 170224 
170226 MAPHOS = 170226 
170230 MAPLO6 = 170230 
170232 = 170232 
170234 MAPLO? = 170234 
170276 MAPHO7 = 170236 
170240 MAPL10 = 170240 
170242 MAPH10 = 170242 
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UNIBUS MAP REGISTER DEFINITIONS SEQ 0014 
170244 MAPL11 = 170244 
170246 MAPH11 = 170246 
170250 MAPL12 = 170250 
170252 MAPH12 = 170252 
170254 MAPL13 = 170254 
170256 MAPH13 = 170256 
170260 MAPL14 = 170260 
170262 MAPH14 = 170262 
170264 MAPL15 = 170264 
170266 MAPH15 = 170266 
170270 MAPL16 = 170270 
170272 MAPH16 = 170272 
170274 MAPL17 = 170274 
170276 MAPH17 = 170276 
170300 MAPL20 = 170300 
170302 MAPH20 = 170302 
170304 MAPL21 = 170304 
170306 MAPH21 = 170306 
170310 MAPL22 = 170310 
170312 MAPH22 = 170312 
170314 MAPL23 = 170314 
170316 MAPH23 = 170316 
170320 MAPL24 = 170320 
170320 MAPH24 = 170320 
170324 MAPL25 = 170324 
170326 MAPH25 = 170326 
170330 MAPL26 = 170330 
170332 MAPK26 = 170332 
170334 MAPL27 = 170334 ‘ 
170336 MAPH27 = 170336 
170340 MAPL30 = 170340 
170342 MAPH30 = 170342 
170344 MAPL31 = 170344 
170346 MAPH31 = 170346 
170350 MAPL32 = 170350 
170352 MAPH32 = 170352 
170354 MAPL 33 = 170354 
170356 MAPH33 = 170356 
170360 MAPL34 = 170360 
170362 MAPH34 = 170362 
170364 MAPL35 = 170364 
170366 MAPH35 = 170366 
170370 MAPL36 = 170370 
170372 MAPH36 = 170372 
170374 MAPL37 = 170374 
170376 MAPH37 = 170376 
170200 MAPL O=MAPL 00 
170202 MAPHO=MAPH 
170204 MAPL 1=MAPL01 
170206 MAPH1 
170210 MAPL 2=MAPL 02 
170212 2 
170214 MAPL 3=MAPL 03 
170216 MAPH3=MAPH 
17022 MAPL 4=MAPL 04 
170222 MAPH4 =MAPHO4 


170224 MAPL 5=MAPL 05 


CKKACAO 11744 POWER F 
UNIBUS MAP REGISTER DEFINITIONS 


326 


335 
336 


000174 
000176 


000200 


000030 
000032 


000046 
000052 


000044 


Sagesss 
22388e8 


170226 


AIL 


001424 
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MAPHS=MAPHO5 


HO7 
“SBTTL TRAP CATCHER 


-=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+#2,HALT'’ 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION, % CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: “WORD 0 SOFTWARE DISPLAY REGISTER 


SWREG: -WORD 0 «SOF TWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 

JMP @ABEGIN ;; JUMP TO STARTING ADDRESS OF PROGRAM 
STACK1=500 


3 
. =$SAVPC 
~SBTTL ACT11 HOOKS 


SOI IOI IOIIOIOIIUIIIOIISIIUIIOIIUIOIO IU IIUIOUIIIOE UIE Ri tit tot 
“HOOKS gt BY ACT11 
VPC= ; SAVE PC 


.WORD 0 ::2)SET LOC.52 TO ZERO 
=1100 - =$SVPC +: RESTORE PC 


.SBTTL APT PARAMETER BLOCK 


STE RAA REE ERE EEEREREKEEERREKERRARREREKE EERE REE EER EEE EE 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
DIOS IO SI IOIOISIIUIDIDIIOIOIIOISIDIDIOIOIIOIOIUIDIDIDIOIOIUIUIDIOIUIUIDIDIOIOIDIOIDIDIDIDIDIIUIOIOISIUDI 
. $X=. +s SAVE CURRENT LOCATION 
2=24 SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ::FOR APT START UP 
-=4 2 ¢POINT TO APT INDIRECT ADDRESS PNTR. 
7zPOINT TO APT HEADER BLOCK 
.=.$X | 3:RESET LOCATION COUNTER 
DUBOIS UIOIIOIIISIOIIOIOIOIIDISIISIDIIOIIOIDIIDIUIUIOIOIOIDIDIDIDIIOIOIIDIDIOIOIOIDIIOIUOIOI I IDR 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


$SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: WORD $MAIL  ::ADDRESS OF APT MAILBOX (BITS 0-15) 
5 +=RUN TIM OF LONGEST TEST 


-=46 
—" 331)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


2 ¢RUN TIME IN SECS. OF 1ST PASS y 1 UNIT (QUICK VERIFY) 


SEQ 0015 


SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


. WORD SETEND-SMAIL/2 3 LENGTH MAILBOX~E TABLE (WORDS) 
.SBTTL APT MAILBOX~E TABLE 
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APT MAILBOX=E TABLE SEQ 0016 
5S ERARARARAARRARRRARAARAERAARARARKRERERARAARRARERRARRRTRR RARER 
"EVEN 
001114 $MAIL: : APT MAILBOX 
001114 000000 $MSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
001116 000000 $FATAL: .WORD AFATAL ::FATAL ERROR NUMBER 
001120 600000 $TESTN: .WORD ATESTN ::TEST NUMBER 
001122 000000 $PASS WORD saPA COUNT 
001124 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001126 000000 UNIT: WORD +:1/0 UNIT NUMBER 
001130 000000 $MSGAD: .WORD AMSGAD ::MESSAGE ADDRESS 
001132 000000 SMSGLG: .WORD AMSGLG ::MESSAGE LENGTH 
001134 SE TABLE ::APT ENVIRONMENT TABLE 
001134 000 ENV: .BYTE AENV  ::ENVIRONMENT BYTE 
001135 000 SENVM: .BYTE AENVM  ::ENVIRONMENT MODE BITS 
001136 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001140 000000 SUSWR: WORD AUSWR —;; USER_ SWITCHES 
001142 000000 $CPUOP: .WORD ACPUOP ::CPU TYPE, OPTIONS 
3* bits 15- Ne CPU TYPE 
:* 11/04=01, 11/05=02, 11/20=03,11/40=04,11/45=05 
3* 11/70= 06; PDQ=07, Q=10 
.* BIT 10=REAL TIME CLOCK 
:* BIT 9=FLOATING POINT PROCESSOR 
:* el 8=MEMORY MANAGEMENT 
001144 000 $MAMS1: BYTE AMAMS 1 HIGH ADDRESS,M.S. BYTE 
001145 000 $MTYP1: .BYTE AMTYP1 + >MEM, TYPE -BLKAI 
2* mem, TYPE BYTE -- (HIGH BYTE) 
:* 900 NSEC CORE=001 
:* 300 NSEC BIPOLAR=002 
:* 500 NSEC MOS=003 
001146 000000 $MADR1: .WORD AMADR1 sHIGH ADDRESS,BLKA1 
thes MEM. LAST ADDR. =3 BYTES, THIS WORD AND LOW OF ‘'TYPE’’ ABOVE 
001150 $ETEND: 
-MEXIT 
338 -SBTTL APT COMMUNICATIONS ROUTINE 
STARA ARR EERE ER ARR KEEAERAARER ARERR ER EER EE 
001150 112767 000001 000236 $ATY1: MOVB #1,$FFLG 37:70 REPORT FATAL ERROR 
001156 112767 000001 000226 $ATY3: MOVB  #1.$MFLG *:TO TYPE A MESSAGE 
001164 000403 BR SATYC 
001166 112767 000001 000220 SAT YG: MOVB #1,$FFLG 7:70 ONLY REPORT FATAL ERROR 
001174 010046 MOV RO,-(SP) ;sPUSH RO ON STACK 
001176 010146 MOV R1.=(SP) “PUSH R1 ON STACK 
001200 105767 000206 TSTB = SMFLG :: SHOULD | TYPE A MESSAGE ? 
001204 001450 BEQ 5$ TIF BR 
001206 122767 000001 177720 CMPB —s- HAPTTENV,, SENV OPERATING UNDER APT? 
001214 001031 BNE 3$ ‘IF NOT: 
001216 132767 000100 177711 BITB SAPTSPOOL .SENVM : : SHOULD SPOOL MESSAGES? 
001224 001425 BEQ 3$ [IF NOT: BR 
001226 017600 000004 MOV a4 (SP) RO GET MESSAGE ADDR. 
001232 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDR. 
001240 005767 177650 1$: TST $MSGTYPE ZSEE IF DONE W/ LAST XMISSION? 
001244 001375 BNE 1$ SIF NOT: WAIT 
001246 010067 177656 MOV RO, $MSGAD ‘PUT ADDR IN MAILBOX 
001252 105720 2%: TSTB (RO) + SFIND END OF MESSAGE 


$$ 
001256 166700 177646 SUB $MSGAD ,RO ;;SUB START OF MESSAGE 
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T COMMUNICATIONS ROUTINE SEQ 0017 
001262 006200 ASR RO 3:GET MESSAGE LNGTH IN WORDS 
001264 010067 177642 MOV RO, SMSGLGT +:PUT LENGTH IN MAILBOX 
001270 012767 000004 177616 MOV #4. $MSGTYPE SZ TELL APT TO TAKE MSG. 
001276 000413 BR S§ 

001300 017667 000004 000016 38: MOV a4 (SP) ,4$ :zPUT MSG ADDR IN JSR LINKAGE 
001306 062766 000002 000004 ADD #2,4 (SP) RETURN ADDRESS 
001314 016746 176456 MOV 177776, (SP) ; PUSH 155776 ON STACK 
001320 004767 004616 JSR PC, $TYPE SC CALL TYPE MACRO 
001324 000000 4$: WORD 0 
001326 S$: 
001326 105767 000062 10$: TSTB ~—s SFFLG : : SHOULD REPORT FATAL ERROR? 
001332 001416 BEQ 12$ F NOT: 
001334 005767 177574 TST SENV ; RUNNING UNDER APT? 
001340 001413 BEQ 12$ :1F NOT: BR 
001342 005767 177546 11$: TST SMSGTYPE 3 FINISHED LAST MESSAGE? 
001346 001375 BNE 1$ ‘IF NOT: WAIT 
001350 017667 000004 177540 MOV as tSP), SFATAL ::GET ERROR 4 
001356 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
001364 005267 177524 INC $MSGT YPE i: TELL APT TO TAKE ERROR 
001370 105067 000020 12$: CLRB ~—s- $FFLLG “CLEAR FATAL FLAG 
001374 105067 000013 CLRB ~—s- $LFLG +:CLEAR LOG FLAG 
001400 105067 000006 CLRB = SMF LG ::CLEAR MESSAGE FLAG 
001404 012601 MOV (SP)+,R1 -:POP STACK INTO R1 
001406 012600 MOV (SP)+,RO += POP STACK INTO RO 
001410 000207 RTS PC +: RETURN 
001412 000 $MFLG: .BYTE 0 siMESSG. FLAG 
001413 000 $LFLG: .BYTE 0 ::L0G FLAG 
001414 000 $FFLG: g 0 ZFATAL FLAG 
~EVEN 

000200 APTSIZE=200 

000001 APTENV=001 

000100 APTSPOOL=100 

- 000040 APTCSUP=040 

340 007416 000000 PFAIL: .WORD 0 

341 001420 000000 XYZ: .WORD 0 

342 177570 SWR=177570 

343 177570 DISPLAY=SwR 

344 001422 000002 LRTI: RTI 

346 001424 BEGIN 

“SBITL INITIALIZE THE COMMON TAGS 
001424 012706 0601100 MOV #STACK, SP ::SETUP THE STACK POINTER 
INITIALIZE A FEW VECTORS 
001430 012737 006514 000034 ASTRAP, @ATRAPVEC ;: TRAP VECTOR FOR TRAP CALLS 
001436 012737 000340 000036 mov #340, aa TRAPVEC +2: LEVEL 7 
001444 005067 177452 CLR SPASS : CLEAR THE PASS COUNT 
001450 016767 002512 002502 MOV SENDCT, SEOPCT ‘SETUP END-OF -PROGRAM COUNTER 


Be 3 FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
EQUAL TO A *~1'', SETUP FOR A SOF TWARE SWITCH REGISTER. 
E ERROR VECTOR 


001456 013746 000004 MOV @WERRVEC,-(SP) ;; 

001462 012737 001516 000004 MOV #64$, AMERRVEC SET UP ERROR VECTOR 

001470 012767 177570 176072 MOV #DSWR, SWR : SETUP FOR A HARDWARE SWICH REGISTER 
001476 012767 177570 176064 MOV MDDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
001504 022777 177777 176056 CMP #~-1 ,aSWR ie TRY TO REFERENCE HARDWARE SWR 

001512 001012 BNE 66$ ;BRANCH IF NO TIMEOUT TRAP ge 


[SAND THE HARDWARE SWR IS NOT 


SESReRaS 


8 


UGS 
© 
=’ 
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COMMON TAGS 


012637 


005067 
132767 
001403 
012767 


012777 
012737 
012737 


012767 


012767 
005067 


023767 


001524 


000176 
000174 
000004 


177352 
000200 


001136 


004654 
004554 


000001 


177740 
001710 
000340 
177510 
000006 
176064 
001420 


000006 
176040 


000042 
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176036 
176030 


177357 
176002 


004556 


003400 
003634 


177530 
176110 
176104 


176066 


177462 
176042 


002244 

















BR 65$ 3; BRANCH IF NO TIMEOUT 
64$: ait #65$, (SP) ;7SET UP FOR TRAP RETURN 
65$: MOV ASWREG, SWR ° demas TO SOFTWARE SwWR 
MOV #DISPREG, DISPLAY 
66$: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 
CLR $PASS ;CLEAR PASS COUNT 
BITB MAPTSIZE,SENVM SITEST USER SIZE Marte tp 
BEQ 67$ ag USE NON-APT SWIT 
MOV ASSWREG, SWR :NO,USE APT SWITCH REGISTER 





67$: 


MOV #POWDWN,@DVEC  ;SET UP POWER DOWN VECTOR 
MOV MPARERR ,@ACACHVEC ;SET UP PARITY ERROR VECTOR 
MOV #1 ,Q@APARFLG S INITIALIZE THE MULTI PARITY ERROR INDICATOR 


;DETERMINE THE SIZE OF MEMORY IN SYSTEM USING SYSMAC SIZE 
;ROUT INE 


CLR RO ;MAKE MSB'S = 0 

BIS Pf $KT11 ; TURN ON MEMORY MANAGMENT 
JSR C.$SIZE ;GET PAR VALUE FOR LAST WORD 
ADD "37, $LSTBK ;FINE LAST ADDRESS OF MEMORY BANK 
MOV $LSTBK RI ;CHECK LAST BANK WITH R1 

INC R1 SIZE MEMORY 

DIV #200,R0 :FORM THE BLOCK NUMBER OF 
DEC RO ; THE LAST ADDRESS AND 

MOV RO,LIMIT SAVE IT. 

INC RO sMULT BY 4 

ASL RO 

ASL RO 


3 THIS ROUTINE ae FOR PFAIL HARDWARF ,TO AUTOMATIC POWER FAIL THE SYSTEM 


MOV 27740, PFA!L  :SETUP PFAIL ADDRESS 
MOV =SET PC 
MOV a3 “SET SW 
TST aPFAIL TREAD PFAIL 
BR 4$ “POWER FAIL HARDWARE IS IN SYSTEM 
3$: MOV #6,4 STRAP RETURN 
CLR 6 
TST (SP) + :SETUP STACK PC 
TST (SP) + ‘SETUP STACK PSW 
a MOV #XY7PFAIL :SET UP DUMMY ADDRESS 
MOV #6 ,4 :RESTORE TRAP VEC 
CLR 6 


IDENTIFY THE PROGRAM AND TYPE INSTRUCTIONS 


CMP OF42, germane 
BEQ PRETST 

TYPE 

TITLE 

TYPE 


BOOT 
MOV RO,-(SP) sr SAVE RO FOR TYPEQUT 
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INITIALIZE THE COMMON TAGS SEQ 0019 
001770 104405 TYPDS ‘£60 TYPE=-DEC IMAL ASCII WITH SIGN 
392 001772 194401 002000 TYPE ,69$ sTYPE ASCIZ STRING 
001776 000415 BR 68$ “GET OVER He ASCIZ 
:;69$: .ASCIZ *=K WORDS OF MEMORY EXIST * 
002032 68$: 
393 002032 026727 177360 001420 CMP PFAIL,AXYZ 71S AUTOMATIC POWER FAIL 
394 002040 001035 BNE APF BRANCH IF YES 
395 002042 104401 002050 TYPE 71$ sTYPE ASCIZ STRING 
002046 000431 BR 70$ ‘GET OVER THE ASCIZ 
-:71$:  .ASCIZ <CRLF><LF>* MANUAL Y INTERRUPT THE POWER AFTER EACH TEST @ * 
002132 70$: 
396 002132 000454 BR FT 
397 002134 APF : 
002134 104401 002142 TYPE ,65$ Si TYPE ASCIZ STRING 
002140 000422 BR 64$ *:GET OVER THE ASCIZ 
::65$: .ASCIZ <CRLF><LF>* NO MANUAL INTERVENTION REQUIRED* 
002206 64$: 
398 002206 104401 002214 TYPE ,67$ i: TYPE ASCIZ STRING 
002212 000424 BR 66$ “GET OVER THE ASCIZ 
::67$: .ASCIZ <CRLF><LF>* AUTO POWER FAIL TEST HARDWARE EXIST#* 
002264 66$: 
399 
400 002264 FT: 
002264 104401 002272 TYPE ,65$ ::TYPE ASCIZ STRING 
002270 000491 BR 64$ *:GET OVER THE ASCIZ 
2°65$: .ASCIZ <CRLF> 
002274 64$: 
401 002274 012767 000001 176616 PRETST: MOV #1, $TEST 
402 : THIS ROUTINE IS FOR CHECKING 2MS TIMING USING SOB OUT OF SIPARS 
403 *BRANCH . OUT OF SIPARO=1.2US 
404 $08 HAS ONE MORE MICRO Step. THROUGH EQUAL 1.4US 
605 :1024 MUL BY 1.4US EQUAL 1.43MS MIN TIME CHE CKED FOR ILLUP, ILLDWN 
406 002302 012737 012700 172240 MOV #12700, @M#SIPARO :LOAD PARO & 1 WITH MOV #1777,R0 
407 002310 012737 001777 172242 MOV #1777, @ASIPAR1 
408 002316 012737 077001 172244 MOV #77001, a4SIPAR2 ;LOAD PAR2 WITH SOB RO,. 
409 002324 012737 000207 172246 MOV #207, @M#SIPAR3  :LOAD PAR3 WITH RTS PC 
410 PLR RARER ERR EERE REAR ERE 
S*TEST 1 SIMPLE DOWN/UP TEST (KERNAL) 
CCE AAAAAAAAEERARAAAAEARAREAAERAAERAARAAARAEARAAAAAAAARARAKAAH RARE AAAS 
002332 TST1: 
002332 104401 002340 TYPE ,65$ zrTYPE ASCIZ STRING 
002336 000402 BR 64$ *:GET OVER THE ASCIZ 
3265$: .ASCIZ *1 * 
002344 64$: 
002344 104401 004234 TYPE , SENULL 
411 002350 005037 177776 CLR aAPS SET KERNAL MODE 
412 002354 012703 002370 MOV #2$,R3 “SET POWER UP RETURN 
413 002360 012777 000001 177030 MOV #1,aPFAIL :SET UP TO START POWER FAIL 
414 002366 000001 WAIT :WAIT FOR POWER FAIL 
415 002370 010600 2$: MOV SP RO :GET SP 
416 002372 022700 001074 CMP ASTACK=4 RO :CHECK SP 
417 002376 001414 BEQ 3$ ZSKIP IF OK 
418 002400 012767 001074 005300 MOV #1074, EXP. SP! 
419 002406 010067 005276 MOV RO,REC.SP1 
420 002412 012706 000500 MOV aSTACK1,SP :SETUP RESERVED STACK POINTER 


FOR ERROR PRINTOUT 
002416 104000 ERROR 
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001100 
001074 
022700 002370 


002370 
005224 
000500 


005226 
002460 
002464 


001076 
000000 


012767 000000 
005172 
000500 


005174 
902522 
002526 


007712 
007714 
000000 
000000 


032737 
001271 


040000 177570 


MACRO M1111 


3$: 


4$: 


EXP. SP 1 
REC. SP 


REC.ADD 


EXP.PSwW 
_——— 


HALT 


BIT 
BNE 


H 2 
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ASTACK, SP 
@ASTACK=4,RO 
#2$,R0 


4 
#2$,EXP.ADD 
RO,REC.ADD 
MSTACK1,SP 


@ASTACK=2,R0 
#0,RO 


5$ 

#0,EXP.PSW 
RO,REC.PSw 
#STACK1,SP 


#SW14,a4SWR 
TST 


SP i mer 
SEQ 0020 


:SP NOT STACK=4 
[PRINT EXPECTED STACK POINTER 
“PRINT RECEIVED STACK POINTER 


sRESET SP 

;GET RETURN ADDRESS 
CHECK ADDRESS 
;SKIP IF Ok 


;SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 


:ADDRESS ON STACK IS WRONG 
“PRINT EXPECTED ADDRESS 
[PRINT RECEIVED ADDRESS 


GET OLD PS 
CHECK OLD PS 
SKIP IF OK 
SETUP RESERVED STACK POINTER 
FOR ERROR PRINTOUT 
ERROR 


:0LD PS 1S WRONG 
‘PRINT EXPECTED PS 
SPRINT RECEIVED PS 


;LOOP ON TEST? 
;LOOP TO TST1 
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459 002550 005267 176344 


002562 


175172 


2 
464 002610 012777 000001 176600 


467 002622 012706 001100 
468 002626 022700 001074 


470 002634 012767 003074 005044 


000000 
478 002664 013700 001076 
479 002670 022700 000341 


481 002676 012767 000341 
482 002704 010067 005004 
483 002710 012706 000500 


005006 


724 000000 
489 002726 013700 001074 
490 peace 022700 002616 


91 002736 
492 002740 012767 002616 004734 
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= 
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:TEST ROUTINE TO CHECK RE=START CAPABILITY 
;USING THE BR. INSTRUCTION 
OPERATOR MUST SET HALT SWITCH TO ENABLE POSITION 


INC $TESTN 


SF EAARAAARARARAERARRRAEAEKRARRARAERARKRRRARARAERARERRAEAEARRA KERR REE 
:*TEST 2 POWER FAIL WITH BR. INSTRUCTION 
CSUR ARREEERKEREKRRRERRRRARARAERRRAEARER AT REREAEHKERERERERE EH 
TST2: 
TYPE —_,65$ ::TYPE ASCIZ STRING 
4% 3iGET OVER THE ASCIZ 


bee é 
;;65$: .ASCIZ *2 * 


64$: 
TYPE , SENULL 
MOV ASTACK,SP 7SET UP STACK 
MOV #357,P ;SET UP CONDITION CODES 
MOV #2$,R3 3SET POWER UP RETURN 
MOV #1 aPFAIL :SET UP TO START POWER FAIL 
$ BR a o FOR POWER FAIL 
e$ MOV SP ,RO SP 
MOV ASTACK,SP CET STACK 
CMP #STACK-4,RO0 CHECK STACK POINTER 
BEQ 3$ :SKIP IF OK 
MOV #1074,EXP.SP1 
MOV RO,REC.SP1 
MOV #STACK1,SP ;SETUP RESERVED STACK POINTER 
zFOR ERROR PRINTOUT 
ERROR 
ERROR 
;STACK POINTER 
EXP.SP1 sPRINT RECEIVED SP 
eet PRINT EXPECTED SP 
HALT 
3$: MOV AASTACK=-2,RO ;GET OLD PS 
CMP #341,R0 ; CHECK OLD PS 
BEQ 4$ ;SKIP IF OK 
MOV #341,EXP.PSW 
MOV RO,REC.PSwW 
MOV MSTACK1,SP ;SETUP RESERVED STACK POINTER 
zFOR ERROR PRINTOUT 
FRROR 
sERROR 
;OLD PS IS WRONG 
EXP.PSW zPRINT EXPECTED OLD PS 
- ones sPRINT RECEIVED OLD PS 
HAL T 
4$: MOV @ASTACK-4,RO0 ;GET RETURN ADDRESS 


CMP #1$,R0 
BEQ 5$ SKIP IF OK 
MOV #1$,EXP.ADD 


SEQ 0021 
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493 002746 
494 002752 


002756 


010067 
012706 


104000 


007702 
007704 
000000 


032737 
001266 


005267 






104401 
003010 000402 






































004732 
000500 


040000 


176114 
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177570 


174764 
174760 
176336 


174730 
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MOV RO,REC.ADD 
MOV #STACK1,SP ; SETUP RESERVED STACK POINTER 
sFOR ERROR PRINTOUT 
ERROR 
ERROR 
: ADDRESS ON STACK IS WRONG 
EXP.ADD ;PRINT EXPECTED ADDRESS 
 eermmeng sPRINT RECEIVE ADDRESS 
HALT 
5$: 
BIT #SW14,a4SWR ;LOOP ON TEST? 
BNE TST2 ;LOOP TO TST2 
; TEST ROUTINE TO CHECK yg dng CAPABILITY 
:USING THE EMULATOR TRAP FOR A WAIT 
;OPERATOR MUST SET HALT SWITCH TO ENABLE POSITION 
INC $TESTN 
22 (AR PRRRSARAASASRASAASASSSRARASR ESAS ERA SARS SERA RRR RRR SRR RAR SRR RSS S SE SY 
S*TEST 3 POWER FAIL WITH EMT TRAP 
DIARRA RRR EERE REE REE REE REERERRERRAERERRER EERE REREEK ERE 
TST3: 
TYPE ,65$ si TYPE ASCIZ STRING 
BR 64$ :iGET OVER THE ASCIZ 
32658: .ASCIZ *3 * 
64$: 
TYPE ,SENULL 
CLR aAPS 7SET KERNAL MODE 
MOV ASTACK,SP ;SET UP STACK 
MOV #2$,R3 :SET POWER UP RETUR 
MOV MLRTI,EMTVEC ;SET UP RETURN FROM EMT TRAP VECTOR 
MOV #5 .EMTVEC+2 sSET PSwW ON POWER FAIL 
MOV #1,@PFAIL ;SET UP TO START POWER FAIL 
3$: EMT sWAIT FOR POWER FAIL 
BR 3$ 
2$: MOV SP RO :GET SP 
MOV #STACK,SP 
MOV #SERROR , 30 ;RESET EMT VECTOR 
. + aii zWAS STACK PUSHED ONLY TWICE 
CMP #STACK-10,R0 zWAS STACK PUSHED 4 TIMES 
BEQ 4$ 


EXP.SP1 
nal 


#1070,EXP.SP1 
RO,REC.SP1 
#STACK1,SP 


7SETUP RESERVED STACK POINTER 
[FOR ERROR PRINTOUT 


SWAS STACK PUSHED 4 TIMES 
SPRINT EXPECTED STACK POINTER 


sPRINT RECEIVED STACK POINTER 








530 003142 
53 


548 

549 003240 

550 003242 

551 003244 

552 003246 

553 003250 
003250 


564 332 
565 003336 
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032737 
001252 


005267 


001070 
001422 


001422 
004514 
000500 


001072 
000005 


000005 
007714 
000500 


040000 
175634 


003272 


MACRO M1111 
HALT 
4$: MOV @FSTACK=10,R0 
CMP MLRTI,RO 
BEQ 5$ 
004516 MOV 4 gett. we ADD 
MOV RO,REC.ADD 
MOV astacKi. SP 
ERROR 
EXP.ADD 
a 
HAL T 
5$: MOV @A4STACK-6,RO0 
CMP #5.R0 
i 6 
004464 Rif EXP.PSw 
RO, “REC.P 
PSTACK1, SP 
ERROR 
EXP.PSW 
Pir 
HAL T 
6$: 
177570 BIT #SW14,a4SWR 
BNE TST3 
INC STESTN 
T*TEST 4 
TST4: 
TYPE ,65$ 
BR 64$ 
3765$: .ASCIZ *4 * 
64$: 
TYPE , SENULL 
CLR aAvPs 
000004 MOV 43%, A#ERRVEC 
MOV #1$, *R3 
176070 MOV #1 SaPFAIL 
3$: MOV #STACK, SP 
TST av3 
MOV #STACK1,SP 


_« 
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;DOES STACK CONTAIN CORRECT INFO 


SETUP RESERVED STACK POINTER 
7FOR ERROR PRINTOUT 


:1S STACK PUSHED MORE THAN 2 OR LESS THAN 4 


;PRINT EXPECTED ADDRESS 
;PRINT RECEIVED ADDRESS 


sDOES STACK CONTAIN CORRECT INFO 


sSETUP RESERVED STACK POINTER 
:FOR ERROR PRINTOUT 


[STACK CONTIAN WRONG PSW 
“PRINT EXPECTED PSW 
SPRINT RECEIVED PSW 


;LOOP ON TEST? 
;LOOP TO TST3 


WEDS RASSERERARRRESASRRRRSARRRRRSEALA RRR RAR ERAS AERA RRR RRR SERRE SS 


POWER FAIL WITH ODD ADDRESS 


FLERE RRR ERE EEE REE ERREREEEERERAREAAEKERRERA ARERR EERE REE 


3: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


;SET KERNAL MODE 
;SET TRAP VECTOR 
SET RETURN ADDRESS FOR POWER FAIL 


;SET UP TO START POWER -FAIL 
sRESET 


STACK 
:CAUSE ODD ADDRESS TRAP — 
5 A RESERVED STACK POINTER 
[FOR ERROR PRINTOUT 


SEQ 0023 
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003342 


104000 


000006 
040000 
175530 


003376 


004234 


001100 
000006 
040000 


000004 
177570 


000004 
175770 


000004 
177570 
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ERROR 
: ERROR 
HALT :ODD ADDRESS TRAP FAILED TO OCCUR 
1$: MOV #6, AAERRVEC SRESET 4 
BIT #SW14,aASWR *LOOP ON TEST? 
BNE TST4 [LOOP TO TST4 
INC STESTN 


ST RA AA RRA EEERER ERRATA EE 


s*TEST 5 POWER FAIL WITH TIME OUT (KERNAL) 


ST RAE RERRAR ERE RRERER EERE EERE REE RKKERR EERE EE 


TST5: 


TYPE 65$ sz TYPE ASCIZ STRING 
BR 64$ 3;GET OVER THE ASCIZ 
37658: .ASCIZ *5 * 
64$: 
TYPE , SENULL 
MOV #3$ , A#ERRVEC ;SET TRAP VECTOR 
MOV #1$,R3 ;SET UP RETURN ADDRESS FOR POWER FAIL 
MOV #1 ,aPFAIL SET UP TO START POWER FAIL 
3$: MOV ASTACK, SP sSET STACK 
CLR aAPsS ;SET KERNAL MODE 
MOV RO,a4160000 7; CAUSE A TIMEOUT 
MOV #STACK1,SP ;SETUP RESERVED STACK POINTER 
ZFOR ERROR PRINTOUT 
ERROR 
ERROR 
HAL T s TIME OUT FAILED TO OCCUR 
1$ MOV MSTACK,SP SET STACK 
MOV #6, @MERRVEC TRESET 4 
BIT #SW14,04SWR LOOP ON TEST? 
BNE TST5 ;LOOP TO TSTS 


585 003474 
586 


003512 
51 


594 003554 
003560 


595 003562 


614 003670 
003674 
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005267 


032737 
001332 


005267 


175420 


003506 


000006 
003604 
040000 


175300 


003626 
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000004 


175644 


000004 


177570 
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INC $TESTN 


Wee ASDA EARRERRRRRAARALARARASARRRRRAR RARER RRR ARERR RASA S ERLE RE SESS SS 


POWER FAIL IN THE STACK OVERFLOW (KERNAL) 


'MmARAASAAARASAASAASLASRLARASLARAAAASAASASALSSE RRS ARR RRR RRS ASA RASS SES SS 


;*TES 
réT6: 


1$: 


2s: 
5$: 


4$: 


T6 
TYPE ,65$ 
BR 64$ 
-ASCIZ *6 * 
TYPE , SENULL 
CLR aFPS 
CLR FLAG 
MOV #2$ ,AAERRVEC 
MOV #400, SP 
MOV #1$,R3 
MOV #1 ,@PFAIL 
WAIT 
MOV #STACK1, SP 
ERROR 
HALT 
BR 4$ 
MOV #6, AERRVEC 
MOV #4$,R3 
RTI 
HALT 
BIT ASW14, a4SWR 
BNE TST6 


INC STESTN 


:-TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


+ SET KERNAL MODE 
;CLEAR THE FLAG 
:SET SICK TPAP ADDRESS 
SET STACK TO YELLOW ZONE 
7SET RETURN ADDRESS FOR POWER FAIL 
;SET UP TO START POWER FAIL 
:WAIT FOR THE POWER FAIL 
SETUP RESERVED STACK POINTER 
FOR ERROR PRINTOUT 


;SKIP_SP CHECK 

sRESET 4 

;SET RETURN 

:GO TO THE POWER FAIL ROUTINE 


;LOOP ON TEST? 
;LOOP TO TST6 


FLARE RRR ERE REREAD EERE REREEREERE ERE 


POWER FAIL WITH RESETS 


s*TES 


'WRARDARASLAAAALAALLA £££ SSALASALSRSESESAE SERRE SASSER SERRA SARS SSS SS | 


S17: 


3765$: 
64$: 


3$: 


Bs 
TYPE ,65$ 
BR 64$ 
ASCIZ *7 * 
TYPE , SENULL 
CLR avP 
MOV #1$,R3 
MOV WSTACK, SP 
MOV #1 ,aPFAIL 
RESET 
RESET 
RESET 
BR 3$ 
MOV #STACK1,SP 
ERROR 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


7SET KERNAL MODE 
SET RETURN ADDRESS 
RESET STACK 

;SET UP TO START POWER FAIL 
;RESETS 


O WAIT 
;LOOP 


+ ih RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 


ERROR 


SEQ 0025 


N 2 
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SEQ 0026 
615 RESET LOOP FAILED 
616 003676 000000 HAL T 
617 003700 012706 001100 1$: MOV AMSTACK,SP sRESET STACK 
618 003704 032737 040000 177570 BIT ASW14,a4SWR ;LOOP ON TEST? 
003712 001342 BNE TST7 ;LOOP TO TST7 
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POWER FAIL WITH RESETS SEQ 0027 
620 
621 
622 
623 
624 003714 005267 175200 INC STESTN 
625 FF AAARAAAARARRAAERARRARAERAERAERRRRRARARRREARERAARRARAERRARARAREAARARAR 
TEST 10 MEMORY MANAGEMENT ABORT TEST 
SL AAAAARAARAERAEKRRAERRAETERERRRAEARAARAEREAERARAAARARARRARRAAHRHARENEH 
003720 TST10: 
003720 104401 003726 TYPE ,65$ sz TYPE ASCIZ STRING 
003724 000402 BR 64$ :iGET OVER THE ASCIZ 
73658: .ASCIZ *10 * 
003732 64$: 
003732 104401 004234 TYPE , SENULL 
626 003736 005037 177776 CLR a4Ps :SET KERNAL MODE 
627 003742 012737 004016 000004 MOV #4$ ,AMERRVEC ‘SET FOR TIMEOUT 
628 003750 004767 001104 JSR PC,MAP ;MAP THE WORLD 
629 003754 012737 004000 000250 MOV #38, AAMMVEC ;SET MEMORY MANAGEMENT VECTOR 
630 003762 012703 004020 MOV #1$,R3 sLOAD PF RETURN 
631 003766 012777 000001 175422 MOV #1 ,aPFAIL ;SET UP TO START POWER FAIL 
632 003774 005237 177572 INC aAMmRod ; TURN MEMORY MANAGEMENT ON 
633 004000 012706 001100 3$: MOV #STACK,SP ; ZAP STACK 
634 004004 005237 140000 INC a4#140000 ;ACCESS VIOLATION 
635 004010 012706 000500 MOV #STACK1,SP ; SETUP RESERVED STACK POINTER 
zFOR ERROR PRINTOUT 
004014 104000 ERROR 
; ERROR 
636 ; ;NO VIOLATION OR TRAP TO 4 
one 004016 000000 4$: HALT 
639 004020 005037 177572 1$: CLR aAMmRod ; TURN OFF MEMORY MANAGEMENT 
640 004024 012706 001100 2$: MOV #STACK, SP MAKE A NEW STACK 
641 004030 012737 000006 000004 MOV #6, AMERRVEC RESET 4 
642 004036 032737 040000 177570 BIT #SW14,@4SWR ;LOOP ON TEST? 
ain 004044 001325 BNE TST10 ;LOOP TO TST10 
644 004046 005267 175046 INC STESTN 
645 SL AAA ERR AERA REAKREREEEERERAEERERRREREAAKRERE REE 
s*TEST 11 MEMORY VOLATILITY TEST 
DLE AEE REAR RARAEERAERAE EERE REA E REE EE 
004052 000240 TST11: NOP 
646 004054 005037 177776 CLR ayPs :SET KERNAL MODE 
647 004060 004767 000170 4$: JSR AT LOAD ;LOAD ALL MEMORY WITH 52525 
648 004064 012703 004122 MOV #1$, R3 ;POWER FAIL RETURN ADDRESS 
649 004070 104401 004076 TYPE ,65$ si TYPE ASCIZ STRING 
004074 000402 BR 643 ::GET OVER THE ASC1Z 
365$: .ASCIZ *11 * 
004102 bis: 
004102 104401 004234 TYPE , SENULL 
650 004106 004767 000246 2$: JSR PC, CHECK :CHECK FOR THE 52525 
651 004112 012777 000001 175276 MOV #1,aPFAIL ;SET UP TO START POWER FAIL 
652 004120 000772 BR 2s ; LOOP FOR EVER OR POWER FAIL 
653 004122 012706 001100 1$: MOV #STACK,SP ; ZAP THE STACK 
654 004126 004767 000226 JSR PC,CHECK + CHECK ALL MEMORY 
655 004132 932737 040000 177570 BIT #SW14,aASWR ;LOOP ON TEST? 


i 
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END OF PASS ROUTINE SEQ 0029 


657 .SBTTL END OF PASS ROUTINE 


FC TARARARAAARARARATARAARARAAHERARRAARARRARAARARAAAAAARARARAAARARAARAA ED 


;* INCREMENT THE PASS NUMBER ($PASS) 

;* INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
;*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
;*IF THERES A MONITOR GO TO IT 

z*IF THERE ISN'T JUMP TO FT 


004142 SEOP: 

004142 00024 

004144 005267 174752 INC SPASS ; INCREMENT THE PASS NUMBER 
004150 042767 100000 174744 BIC #100000, $PASS SIDON'T ALLOW 4 NEG. NUMBER 
004156 005327 DEC (PC)+ ; ; LOOP? 

004160 000001 SEOPCT: .WORD 1 

004162 003022 BGT SDOAGN scVEes 

004164 012737 MOV (PC)+,a(PC)+ i sRESTORE COUNTER 

004166 000001 SENDCT: ] 

004170 004160 SEOPCT 

004172 104401 004237 TYPE , SENDMG TYPE ‘END PASS #°' 

004176 016746 174720 MOV $PASS ,-(SP) [SAVE $PASS FOR TYPEOU 
004202 104405 TYPDS :GO_ TYPE~-DEC IMAL ASCII WITH SIGN 
004204 104401 004234 TYPE , SENULL 33 TYPE A NULL CHARACTER 
004210 013700 000042 $GET42: MOV 442 ,RO ;GET MONITOR ADDRESS 
004214 001405 BEQ $DOAGN BRANCH IF NO MONITOR 
004216 0000C5 RESET ::CLEAR THE WORLD 

904220 004710 SENDAD: JSR PC, (RO) ::GO TO MONITOR 

004222 000240 NOP 3;SAVE ROOM 

004224 000240 NOP ie FOR 

004226 000240 NOP 33ACT11 

004230 SDOAGN: 

004230 000137 JMP a(PC)+ 3 ¢RETURN 

004232 002264 SRTNAD: .WORD FT 


004234 377 377 000 $ENULL: .BYTE 32NULL CHARACTER STRING 


-1,-1,0 
004237 012 105 $ENDMG: .ASCIZ <1§><12>/END PASS’ #/ 
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END OF PASS ROUTINE 





.SBITL 
OAD: 


1$: 
es: 


3$: 





LOAD oe WITH DATA PATTERN 


JSR PC MAP :SET UP MEMORY MANAGEMENT REGISTERS 
MOV LIMIT,R4 ‘GET BANK COUNT 

MOV DATA,RS “GET THE DATA PATTERN 

MOV #2$, BAMMVEC >SET UP FOR MEMORY “MANAGEMENT ABORTS 

MOV #END,RO [FORM ADDRESS OF WHERE TO START WRITING THE DATA 
ADD #120000,R0 ‘USE KIPARS FOR ADDRESSING 

MOV #1, BAMMRO = TURN ON MEMORY MANAGEME 

MOV RS. (RO)* “WRITE THE DATA 

Bi 

DEC RG ZLAST BANK WRITTEN? 

BMI 3$ “BRANCH IF YES 

MOV #120000,R0 TRESET ADDRESSING REGISTER 

ADD #200, a4KIPARS :SIZE NEXT 4K BANK 

MOV #1, a4MMRO >CLEAR MEMORY MANAGEMENT ERRORS 

RTI [RETURN TO CONTINUE WRITING 

CLR aR [TURN OFF MEMORY MANAGEMENT 


ADD #4 ,SP :CLEAN UP THE STACK 
] PC ;RETURN TO CALLER 
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CHECK MEMORY FOR CORR 


698 004464 
004470 


699 004472 


714 004546 
715 004552 


MACRO M1111 
T DATA PATTERN 


000250 


177572 


003256 


003250 
003244 


. 
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(RO) +,R1 
R9.R1 


RO,VIR.ADD 
#2,VIR.ADD 


#160000 VIR.ADD 
ak IPARS , PAR. OF F 


RS, EXPDAT 
R1,RECDAT 
ASTACK1, SP 


R5,-2(RO) 
1$ 

R4 

3$ 
#120000,R0 


#200, @AK IPARS 
#1, d4MMRO 


AMR 0) 
#4,SP 
PC 


N 
#120000 ,RO 
#1, aAMMRO 





CHECK MEMORY FOR CORRECT DATA PATTERN 
SET UP MEMORY MANAGEMENT REGISTERS 





GET BANK COUNT 
;GET DATA PATTERN 


SET UP FOR MEMORY MANAGEMENT ABORTS 
s;ADDRESS OF WHERE DATA PATTERN STARTS 


7 USE 4-4 FOR vant i ga 
; TURN MANAGE MEN 
[READ THE MDATA 

:1S IT GOOD? 


“BRANCH IF YES 


; SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 





;PRINT VIRTUAL ADDRESS 
;PRINT PDR OFFSET 
;PRINT EXPECTED DATA 
;PRINT RECEIVED DATA 


;WRITE GOOD DATA 
;GO READ THE NEXT WORD 


;LAST BANK COMPARED? 
[BRANCH IF YES 

;RESET a gy hg em REGISTER 
;SIZE NEXT 4K BANK 


> CLEAR MEMORY MANAGEMENT ERRORS 
; CONTINUE TESTING 

; TURN OFF MEM. MANAGEMENT 

; CLEAN UP THE STACK 

SRETURN FOR CALL 


717 
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PARITY ERROR HANDLER 


005327 
000001 
002002 
000000 
000776 
032767 
001006 


1 
023727 
101002 
000000 


000077 
177740 


177744 


000002 
000002 


177744 
000001 


MACRO M1111 


. SBITL 


G 
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PARERR: DEC 
PARFLG: .WORD 


1$: 
173146 2%: 


010170 


3$: 
4$: 


5$: 
177744 
177706 


PARITY ERROR HANDLER 


(PC)+ 
1 
2$ 


i$ 
a 


$ 
@A4LOADRS , END 
4$ 


3$ 
@AMEMERR 
5$ 
#2,RO 
#B1T01,R5 
R5,RO 
R3,(RO)+ 





FIRST TIME IN? 


;BRANCH IF YES 

:NO=ANOTHER PARITY ae OCCURRED WHILE 
;PROCESSING THE FIRST ONE. 

;MSB'S OF PARITY ERROR ADDRESS=0? 


BRANCH IF NO 

;LSB"S ABOVE THE PROGRAM? 
;BRANCH IF YES 

;PARITY ERROR IS IN THE PROGRAM 


;DATA PARITY ERROR OCCURRED 
:DID AN ABORT OCCUR? 

;BRANCH IF YES 

;BACKUP BY ONE WORD 


“REWRITE THE BAD DATA 


@AMEMERR , aAMEMERR ;CLEAR ERROR INDICATORS 


#1 ,PARF LG 


: INITIALIZE PARITY ERROR FLAG 


S CONTINUE TESTING 


SEC 0032 
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PARITY ERROR HANDLER 


773 005010 
774 
775 005012 


790 052 
791 005054 
792 005056 


000000 
000240 


052525 


177777 


000164 
005012 
000136 
000400 


001100 


000116 
172240 
004750 


005024 
000066 
172240 


004654 
173154 
173142 


000026 
000026 
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.SBTTL POWER FAIL ROUTINE 


000170 POWDWN: ne 
L 
000144 MOV 


000074 MOV 


000066 POWUP: MOV 


000034 MOV 


ILLUP: TYPE 
UP 


ILLDWN: TYPE 


#-1,FLAG 
FLAG 
MILLUP,@UVEC 
(SP) ,ERRAD 
#400,SP 

1$ 
#STACK, SP 


PC ,@#SIPARO 
AMPOWUP , AUVE C 


#ILLDWN,aDVEC 
SAV6, SP 
PC ,a#SIPARO 


#POWDWN , @DVEC 
(R3) 


200 


200 


FIRST INSTRUCTION FLAG 
SNOW er IT 


IF TOO F 


AST 
>SET THE ERROR ADDRESS 
: YELLOW OR RED? 


[SET EMERGENCY STACK 
PUT 


3 THE 
sREGISTERS 
; ON 

THE 

S STACK 


;SAVE THE STACK POINTER 
;SET TIME FACTOR 

;RESET THE UP VECTOR 
;WAIT FOR POWER DOWN 


7 SET i A FAST DOWN VECTOR 


: RESET 


oN FACTOR 


THE 
“REGISTERS 
FROM 


> THE 
s STACK 


RESET THE DOWN VECTOR 
; JUMP INDIRECT TO R3 


';POWER UP BEFORE POWER DOWN COMPLETE 


;RETURN ADDRESS FROM POWER FAIL 


;UP ADDRESS PAIR 

;DOWN ADDRESS PAIR 

;SOME PLACE TO PUT THE SP 

31 INSTRUCTION DOWN FLAG 

; TOP OF MEMORY 

;WHAT IS TO BE WRITTEN INTO MEMORY 


;POWER DOWN BEFORE UP COMPLETE 


SEQ 0933 
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AIL 
TUP MEMORY MANAGMENT REGISTERS 


005 012737 
797 005066 012737 
798 005074 012737 
799 005102 012737 

005110 012737 
801 005116 012737 
802 005124 012737 
803 005132 012737 

005140 012737 
805 005146 012737 
806 005154 
807 005156 


005162 010046 


005274 012742 


RS eT ER SRE NR eh an Oe att Siem te Si fo RIL AN 


000004 
000006 


000006 
003776 


005362 
177572 
100000 
172340 
000010 
077406 
000200 


177600 
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-SBTTL SETUP MEMORY MANAGMENT REGISTERS 


172340 MAP: MOV #0, a#K IPARO :SETUP PARO FOR 1ST 4k 
172300 MOV #77406, @FKIPDRO 34K, R/W, EXPAND UP 
172352 MOV ark IPARS *SET UP PARS FOR 1ST 4k 
172312 MOV 475006 Gar IPORS 74K, R/W, ED=UP 
172354 MOV #200, @4KIPAR6  :SET UP PAR6 FOR 2ND 4k 
172314 MOV #0, a#KIPDR6 SABORT ALL oREFERENCES 
172356 MOV #177600, @4KIPAR7? ;SET UP PAR7 FOR 1/0 PAGE 
172316 MOV #77406, @AKIPDR7 :4k, R/W, ED=UP 
172516 MOV #B1T04.a4MMR3 =: SET UP FOR 22-BIT MAPPING 
000250 MOV #MMERR.aAMMVEC :SET UP MEMORY MANAGEMENT VECTOR 
RTS PC “RETURN FROM CALL 
MMERR: HALT “MEMORY MANAGEMENT ERROR 
BR MMERR 
.SBTTL ROUTINE TO SIZE MEMORY 
“SBTTL ROUTINE TO SIZE MEMORY 
CLARA AR RAEARRARRER RHR EERE RRERRERERREAEEEKRRREKRERER REAR EEE 
i *CALL: 
7° JSR PC, $SIZE 
;* RETURN 
>*$LSTAD WILL CONTAIN: 
2” WITH KT711 OPTION -- LAST VIRTUAL ADDRESS OF THE LAST BANK 
+ WITHOUT KT11 OPTION -- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
‘*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 
:*$KT11 IS THE MEMORY MANAGEMENT KEY 
t*BITO7 = 0 DON'T USE MEMORY MANAGEMENT 
:* MUST BE SETUP BEFORE THE C 
>*B1T15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION 
* DE TEROUINED BY ROUTINE 
$SIZE: MOV RO,-(SP) 7;SAVE RO ON THE STACK 
MOV R1.-(SP) +: SAVE R1 ON THE STACK 
MOV R2,-(SP) 7: SAVE R2 ON THE STACK 
MOV R3,-(SP) *:SAVE R3 ON THE STACK 
MOV @¥ERRVEC,-(SP) ::SAVE PRESENT ERROR VECTOR PS & PC 
Mov Q#ERRVEC+2,-(SP) 
SP RO SAVE THE STACK POINTER 
:SET THE ERRVEC PS TO THE PRESENT ”PS 
TRAP H OLD PSW AND PC ON STACK 
MOV (SP)+, AFERRVEC c+2°° sSAVE THE PSW IN a#ERRVEC+2 
MOV #3776.R1 :: SETUP ADDRESS 
TSIB ~—- (PC) + USE MEMORY MANAGEMENT 
$KT11: .WORD 200 :SET TO USE MEMORY MANAGEMENT 
BPL $CORE IF NO 
000004 MOV WSK TNEX, @WERRVEC’ 1861 FOR TIMEOUT 
TST a4¥sRO kT11 ARE YOU THERE? 
177754 BIS #100000, $KT11 ‘ VES@-SET KT11 KEY 
CLR : INITIALIZE FOR "PAR'’ LOADING 
MOV IRIPARO .A2 ;; ADDRESS OF FIRST ‘PAR 
MOV #*D8.R3 OAD FIGHT ‘PAR.'S'’ AND EIGHT ‘PDR. 'S'' 
177740 18: MOV #77406, -40(R2) :IBDR = 4k, UP, READ/WRITE 
MOV (SP), (R2)+ LOAD ‘PAR'' 
ADD #200, (SP) : UPDATE FOR NEXT ' 
SOB R31 : LOOP UNTIL ALL Flew we LOADED 
MOV #177600, -(R2) ‘SETUP KIPAR7? FOR 1/0 
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ROUTINE TO SIZE MEMORY SEQ 0035 
005042 CLR = =(R2) :SETUP KIPARG FOR TESTING 
005302 012757 005320 000004 MOV -#2$.@WERRVEC CATCH TIMEOUT IF NO SR3 
005310 012737 900020 172516 MOV #20, a¥#SR3 ;:ENABLE 22 BIT MODE 
005316 000401 BR 3$ THIS PDP=11 HAS A SR3 REGISTER 
005320 022626 2$: CMP (SP)+,(SP)+ 3 CLEAN OFF THE STACK=-NO SR 
005322 005237 177572 3$: INC — @#SRO TURN ON MEMORY MANAGEMENT 
005326 012737 005352 000004 MOV #SKTOUT @#ERRVEC :;SET FOR TIME OUT 
005334 005737 143776 4$: TST 143776 TRAP ON NON-EX-MEM 
005340 062712 000040 ADD 740, (R2) :i:MAKE A 1K STEP 
005344 023712 172356 CMP = @WKIPAR7,(R2) >: LAST_ONE? 
005350 101371 BHI 4$ NO=-TRY_ IT 
005352 011202 $KTOUT: MOV (R2) ,R2 :2GET LAST BANK 
005354 005037 177572 CLR avsrd TURN OFF MEMORY MANAGEMENT 
005360 00042 ie $SIZEX 
005362 042767 100000 177630 $kINEX: BIC  #100000,$KT11 __;;KT11 NON-EXISTENT 
005370 012737 005420 000004 $CORE: MOV  § #S$CROUT.@#ERRVEC’;:SET FOR TIMEOUT 
005376 005002 CLR = Re SET UP BANK 
005400 062701 004000 1$: ADD —- #4000,R1 :EINCREMENT BY 1K 
005404 062702 000040 ADD #40, R2 ii 1k STEP 
005410 005711 TST (R15 TRAP ON TIME OUT 
005412 022701 177776 CMP ss #177776,R1 >ZLAST_ONE 
005416 001370 BNE 1$ :NO=-TRY AGAIN 
005420 162701 004000 $CROUT: SUB —-#4000,R1 
005424 162702 000040 $SIZEX: SUB #40, R2 : DROP BACK 
005430 010006 MOV _—RO, SP RESTORE THE STACK 
005432 012637 000006 MOV (SP) +,@#ERRVEC+2° : ;RESTORE ERROR VECTOR 
005436 012637 000004 MOV (SP) +, @#ERRVEC 
005442 010167 000016 MOV —s-R1, SLSTAD ; LAST ADDRESS 
005446 010267 000014 MOV —-R2, $LSTBK :ZLAST BANK 
005452 012603 MOV (SP)+,R3 RESTORE R3 
005454 012602 MOV (SP)+°R2 RESTORE R2 
005456 012601 MOV (SP)+,R1 ; RESTORE R1 
005460 012600 MOV (SP) +,RO : RESTORE RO 
005462 000207 RTS —s PC 
905464 000000 $LSTAD: .WORD 0 CONTAINS THE LAST ADDRESS 
005466 000000 $LSTBK: .WORD 0 S:CONTAINS THE LAST BANK 
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814 


000076 
177770 


MACRO M1111 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


WeEAARARALASAAALALASLASLAALARAARARA RASA RE LER ARR RRR A RR RA SARA R ARADO SD 


>*THIS ROUTINE IS USED TO = A 16-81T BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND T 


YPE IT 
:*$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3; *CALL: 

te MOV 
y* TYPOS 
3* -BYTE 
3* -BYTE 
3* 

ha 


:*$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


NUM , = (SP) 


:*$TYPOS OR $TYPOC 
:*CALL: 


: 
** 


MOV 
TYPON 


NUM ,~ (SP) 


; ;NUMBER TO BE —_— 
7:CALL FOR TYPEOUT 
:iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
7zM=1 OR 0 
eh ye LEADING ZEROS 
;0=SUPPRESS LEADING ZEROS 


3; NUMBER TO BE TYPED 
;7CALL FOR TYPEOUT 


Se agpone HERE FOR TYPEOUT OF A 16 BIT NUMBER 
> *CALL 


-* 
° 


MOV 
TYPOC 


$TYPOS: MOV 


000211 


000154 


1$: 
2$: 


3$: 


4$: 


$TYPOC: 
$TYPON: 


NUM, - (SP) 


a(SP) ,-(SP) 


1(SP) , SOF ILL 
(SP) +, SOMODE +1 


#2, (SP) 
$TYPON 
#1,$0F ILL 
#6 


7; NUMBER TO BE TYPED 
7:CALL FOR TYPEOUT 


;sPICKUP THE MODE 

: LOAD wy FILL SWITCH 

; <NUMBER OF DIGITS TO TYPE 
3 ADJUST RETURN ADDRESS 


33SET THE ZERO FILL SWITCH 
3sSET FOR SIX(6) DIGITS 
33ST "= ITERATION COUNT 


R5 
SIGET THE NUMBER OF DIGITS TO TYPE 


;:SUBTRACT IT FOR MAX. ALLOWED 

7:SAVE_IT FOR USE 

at} THE ZERO FILL SWITCH 
PICKUP THE INPUT NUMBER 
[CLEAR THE OUTPUT WORD 

; ROTATE ~ INTO ‘'C'’ 

1380 DOM 
7 FORM THis DIGIT 


:GET LSB OF THIS Bil 
“TYPE a DIGIT 


: BR IF 
:3GET RID OF JUNK 
::TEST FOR 0 
: 3 SUPPRESS THIS 0? 
DON" T SUPPRESS ANYMORE 0'S 


SEQ 0036 


. 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0037 


052703 ;sMAKE THIS DIGIT ASCII 
5$: R3 ;sMAKE ASCII IF NOT ALREADY 
MOVB :;SAVE FOR TYPING 
+460 bg THIS DIGIT 
7$: T BY 1 


; DONE 
‘ EINSURE LAST DIGIT ISN'T A BLANK 
+60 DO THE LAST DIGIT 

STORE R5 


; ORE R3 
000004 SISET THE STACK FOR RETURNING 


oo RET URN 
ee3 TORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
S:0CTAL DIGIT COUNTER 
2 ZERO FILL SWITCH 
OMODE: .WORD 0 sNUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


LL EAE ERE EEK ERE ERE ERE REE EE 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

: *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
yh eas WITH SPACES. 


NUM ,~ (SP) 3;zPUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


$TYPDS: 
RO,-(SP) ::PUSH RO ON STACK 
77PUSH R1 ON STACK 
: PUSH R2 ON STACK 
+ =:PUSH R3 ON STACK 
R5.-(SP) ; ;PUSH_R5 ON STACK 
020200 #20200, -(SP) [SET BLANK SWITCH AND SIGN 
000020 20(SP )?R5 :3GET THE INPUT NUMBER 


R5 
000055 #'=,1(SP) 
1$: RO 


006132 #SDBLK ,R3 SETUP THE OUTPUT POINTER 
000040 w' (R3)+ °:SET THE FIRST CHARACTER TO A BLANK 
: R2 ::CLEAR THE BCD NUMBER 
006122 $DTBL (RO) ,R1 [GET THE CONSTANT 
R1,R5 >:FORM THIS BCD DIGIT 


7;BR IF DONE 
3, INCREASE THE BCD DIGIT BY 1 


G. 
: ZERO THE CONSTANTS INDEX 


;ZzADD BACK THE CONSTANT 

7: CHECK IF BCD DIGIT=0 
7ZFALL THROUGH IF 0 
:zSTILL DOING LEADING 0'S? 
737BR IF YES 
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CONVERT BINARY 


816 


MACRO M1111 


TO DECIMAL AND TYPE ROUTINE 


105767 
100002 


0004 30 
010046 
017600 
Agere 


001011 
132767 
001405 


000001 
000060 
000040 


000010 


177777 


006132 
000002 


000335 


000002 
000001 
000100 


177777 


177776 


000004 


172744 
172735 


5$: 


6$: 
7$: 


8$: 


9$: 


$DTBL: 


$DBLK: 
.SBTITL 
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ASLB (SP) 
BCC 6$ 

MO 1(SP) ,=1(R3) 
BIS #'0,R2 

BIS "RO 
MOVB _—R2, (R3) + 
TST (RO) + 

CMP RO,#10 

BLT $ 

BGT $ 

MOV RS ,R2 

BR 6$ 

TSTB  ~—- (SP) + 

BPL 9$ 

MOVB = =1 (SP) ,=2(R3) 
CLRB (R33) 

MOV (SP) +,R5 
MOV (SP) +.R3 
MOV (SP) +.R2 
MOV (SP) +-R1 
MOV (SP) +_RO 
TYPE , $DBLK 

MOV 5(SP) ,4(SP) 
MOV (SP) +. (SP) 
RTI 

10000 

1000. 

100. 

10. 

-BLKW OG 

TYPE ROUTINE 


7aMSD? 


;;BR IF NO 
77 YES--SET THE SIGN 
: MAKE THE BCD DIGIT ASCII 
>;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
+ PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3; JUST INCREMENTING 
; «CHECK THE TABLE INDEX 
:GO DO THE NEXT DIGIT 
3360 TO EXIT 
:GET THE LSD 
$:G0 CHANGE TO ASCII 
‘i LSD THE FIRST NON-ZERO? 


2s YES~=SET THE SIGN FOR TYPING 
SET THE TERMINATOR 

+: POP STACK INTO 85 

:zPOP STACK INTO R3 

: POP STACK INTO R2 

7zPOP STACK INTO R1 

: POP STACK INTO RO 

;zNOW TYPE THE NUMBER 

; ADJUST THE STACK 


;;RETURN TO USER 


LER RE RE REKEKEREEREEEREKEREREEREEEEKEEREREREK EEE 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


sel) USING A TRAP INSTRUCTION 


; *NOT 

7 *NOTE2 

7 *NOTE3 

°@ 

3 *CALL 

TYPE 

:*0R 

; TYPE 

- ME SADR 

2 

$TYPE TSTB 
BPL 
HALT 
BR 

1$: MOV 
MOV 
CMPB 
BNE 
BITB 

EQ 


;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
E1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


-MESADR 


STPFLG 
1$ 


3$ 

RO, rol 

a2 (SP) .RO 
PAPTENY SENV 
es 


6 
#APTSPOOL ,SENVM ; 
62% 


3zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


iI ee A TERMINAL ? 


te YES 
— IF NO TERMINAL 


at 


; E RO 
:2GEr ADDRESS OF ASCIZ STRING 
RUNNING IN APT MODE 
:INO,GO CHECK FOR APT CONSOLE 
[SPOOL MESSAGE TO APT 
:INO,GO CHECK FOR CONSOLE 


SEQ 0038 
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TYPE ROUTINE 


000004 
172744 
000040 


000002 
000011 
000200 


000200 


000056 
000200 


000170 
000001 


000032 
000142 


000040 
000014 
000007 


000114 


000002 
000114 


000110 
177600 
000023 


000070 
000064 
177600 
000021 
000015 
000014 


MACRO M1111 


61$: 
172713 62$: 


2$: 


60$: 


3$: 
4$: 


;HORIZONTAL TAB 


8$: 
$: 
000122 


BR 
$TYPEC: TSTB 
BP 


000106 


3$: 


000002 2$: 


N 3 
25=SEP=79 12:55 PAGE 74-3 


RO,61$ 
PC, SATY3 


MAPTCSUP ,SENVM 
0$ 


(RO) +,-(SP) 
4$ 

(SP) + 

(SP) +,RO 
#2,(SP) - 
MHT , (SP) 

8$ 
"na 


(SP) + 


$CHARCNT 
2$ 


PC, $TYPEC 
$FILLC, (SP)+ 


2$ 
$NULL ,- (SP) 
1(SP) 
$ 
PC, $TYPEC 
$CHARCNT 
7$ 
PROCESSOR 
#* ,(SP) 
PC, $TYPEC 
#7. $CHARCNT 
(SP) + 
2$ 
asPs 
$TYPEC 
2(SP) ,a$TPB 
asTKS 
2$ 
@$TKB,-(SP) 
#177660, (SP) 
#23, ( 
2$ 
a$TKS 
3$ 
a$TkKB,-(SP) 
#177600, (SP) 
#21,(SP)+ 
3$ 
#CR,2(SP) 
1$ 


SCHARCNT 


tag MESSAGE ADDRESS FOR APT 
SPOOL MESSAGE TO APT 
MESSAGE ADDRESS 


;;APT CON 

2s YES, SKIP TYP’ 
; =PUSH CHARACTER TO BE TYPED ONTO STACK 
;BR IF IT ISN'T THE TERMINATOR 

THIF TERMINATOR POP IT OFF THE STACK 

; RESTORE RO 

+ ¢ADJUST RETURN PC 

; ;RETURN 


+: BRANCH IF <HT> 
: ;BRANCH IF NOT <CRLF> 


;zPOP <CR><LF> EQUIV 
73 TYPE A CR AND LF 


7 CLEAR CHARACTER COUNT 


; NEX ° 
2 2GET # OF FILLER CHARS. NEEDED 
zAND THE NULL CHAR. 
; :DOES A NULL NEED TO BE TYPED? 
IF NO=-GO POP THE NULL OFF OF STACK 
£260 TYPE A NULL 
et A pad COUNT AS A COUNT 


sREPLACE TAB WITH SPACE 
7s TYPE A SPACE 
; «BRANCH IF NOT AT 
3; TAB STOP 
: :POP SPACE OFF STACK 
32GET NEXT CHARACTER 
T:WAIT UNTIL PRINTER IS READY 


LOAD CHAR TO BE TYPED INTO DATA REG. 
SEE IF KEYBOARD 3 TALKING, 
3 BRANCH IF IT ISN'T 
S:PUSH CHARACTER ONTO STACK 
::BIT CLEAR TOP BYTE AND PARITY BIT. 
+2 SEE IF THIS IS A “S. 
: ;BRANCH TO CONTINUE IF IT ISN'T. 
WAIT FOR ANOTHER INPUT. 
‘BRANCH BACK IF NOT READY. 
:ZPUSH NEXT CHARACTER A... STACK. 
i CLEAR TOP a PARITY BIT. 
:SEE IF THIS IS A 
> BRANCH BACK FOR MORE WAIT IF NOT. 
3315 CHARACTER A CARRIAGE RETURN? 
BRANCH IF NO 
SEYES==CLEAR CHARACTER COUNT 


SEQ 0039 
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TYPE ROUTINE SEQ 0040 

006454 000406 BR STYPEX sEXIT 
006456 122766 000012 000002 1$: CMPB ALF, sgt) IIs CHARACTER A LINE FEED? 
006464 001402 BEQ $TYP ; ;BRANCH_IF YES 
006466 105227 INC8 (PC) ;;COUNT "HE CHARACTER 
006470 000000 $CHARCNT:.WORD 0 ; CHARACTER COUNT STORAGE 
006472 000207 $STYPEX: RTS PC 
006474 177564 $TPS: .WORD 177564 :zTTY PRINTER STATUS REG. ADDRESS 
006476 177566 $TPB: .WORD 177566 ‘Son PRINTER BUFFER REG. ADDRESS 
006500 000 $NULL: .BYTE 0 CONTAINS NULL CHARACTER FOR FILLS 
006501 002 $FILLS: .BYTE 2 :CONTAINS # OF FILLER CHARACTERS Seer 
006502 Ole $FILLC: .BYTE 12 S PINSERT FILL CHARS. AFTER A ‘LINE 
006503 000 $TPFLG: .BYTE 0 “TERMINAL AVAILABLE'’ FLAG (BIT<O7>= O=YES) 
006504 077 $QUES: .ASCII °'?"' QUESTION MARK 
006505 015 $CRLF: .ASCII <15> 3: CARRAIGE RETURN 
006506 012 000 $LF: eASCIZ <12> 7s LINEFEED 

817 006510 177560 $TKS: .WORD 177560 

At 006512 177562 $TKB: .WORD 177562 

820 .SBTTL TRAP DECODER 


ZORA AOISIIIII IID IOIIIIIIOIDIIUIDIOIISISIDIIIOIIUIDISIOIOIUIDIOIIIOIIINUIO IIDC INDIR nt 
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


006514 010046 $TRAP: MOV RO,-(SP) : SAVE RO 

006516 016600 000002 MOV 2(SP) ,RO : GET TRAP ADDRESS 
006522 005740 TST -(RO) ;BACKUP BY 2 

006524 111000 MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
006526 006300 ASL RO :POSITION FOR INDEXING 
006530 016000 006550 MOV $TRPAD(RO),RO  :: INDEX TO TABLE 

006534 000200 RTS RO 3:G0 TO ROUTINE 


3: THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 


006536 011646 $TRAP2: MOV (SP) ,-(SP) 3zMOVE THE PC DOWN 
006540 016666 000004 000002 MOV 4(SP) ,2(SP) :zMOVE THE PSW DOWN 
006546 000002 RTI : RESTORE THE PSw 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE oe ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION 


: ROUTINE 
006550 006536 $TRPAD: .WORD $TRAP2 
006552 006142 $TYPE 3; CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
006554 005514 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
006556 005470 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
006560 005530 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


006562 005716 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
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TRAP TABLE 


005721 


000002 
177716 
006654 


007652 
007126 


006734 


MACRO M1111 


C 4 
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SEQ 0041 


$SERROR: 


TITL: 


3658: 
bis: 


DAT: 


72658: 


ERROR= 104000 


ERRPC: .WORD 0 
MOV RO,SAVRO ; SAVE RO THRU RS 
MOV R1,SAVR1 
MOV R2,SAVR2 
MOV R3,SAVR3 
MOV R4,SAVR4 
MOV _R5,SAVR5 
BR TITL 
SAVRO: .WORD 
SAVR1: .WORD 
SAVR2: .WORD 
SAVR3: .WORD 
SAVR4: .WwORD 
SAVR5: .WORD 
— as (SP) ,R1 :Ri CONTAINS ADDRESS FLLOWING ERRPC ADDRESS 
MOV _R1,ERRPC ;GET ADDRESS OF ERROR MESSAGE :ERRPC 
TYPE -05$ 32 TYPE ASC1Z STRING 
BR 4$ 3iGET OVER THE ASCIZ 
-ASCIZ <CRLF><CRLF>/TESTNO ERRPC/ 
3$: TST (R1)+ 3R1 POINTS TO NEXT ARGUEMENT 
MOV #PRTABL ,R2 ;ADDRESS OF START OF PRINT TABLE LIST 
MOV #PRTITL,R3 ADDRESS OF STERT OF TITLES 
TST (R1) ;END OF ARGUEMENTS? 
BEQ DAT 7 YES,GO ttre | DATA 
e$: TST (R3)+ ZINDEX THRU TITLES 
CMP (R1),(R2)+ :SEARCH PRINT TABLE LIST FOR TITLE 
BNE 2$ ;NO; CHECK NEXT LOCATION IN LIST 
JSR PC, a-(R3) :FOUND IT; GO PRINT TITLE 
;CODE ERROR ROUTINE 
BR 3$ 
TYPE -65$ ie TYPE ASCIZ STRING 
BR 64$ 32GET OVER THE ASCIZ 
eASCIZ <CRLF> 
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TRAP TABLE 


64$: 
016746 172156 MOV STESTN,-(SP) 7+ SAVE STESTN FOR TYPEOUT 
104403 G0 pe eit ce) ASCII 
006 BY! 6 +: TYPE 6 DIGIT(S 
000 0 > SUPPRESS Or NDING ZEROS 
104401 006754 ,67$ se TYPE ASCIZ STRING 
000402 BR , 3 GET OVER THE ASCIZ 


016746 177600 MOV ERRPC ,~( SP) 3;;SAVE ERRPC FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
004234 TYPE ,$ENULL 


(SP) ,R1 3R1 CONTAINS ADDRESS FOLLOWING ERRORPC ADDRESS 
000002 #2,R) 
: (R1) + ;R1 POINTS TO NEXT ARGUEMENT 
007652 #PRTABL ,R2 sADDRESS OF START OF PRINT TABLE LIST 
007506 MOV #PRDATA,R3 ;ADDRESS OF STERT OF PRINT DATA 
(R1) END OF ARGUEMENTS? 


FIN ;YES 
(R3)+ INDEX THRU DATA PRINTS 
(R1),(R2)+ ;SEARCH PRINT TABLE LIST FOR TITLE 
2$ :NO; CHECK NEXT LOCATION IN LIST 
sTYPE ASCIZ STRING 
SIGET OVER THE ASCIZ 


JSR _PC,a-(R3) ; 

TYPE ,SENULL 

71$ 3eTYPE ASCIZ STRING 

O$ 32GET OVER THE ASCIZ 

rs 
BR 3% 

TST (Ri) + ;R1_ NOW CONTAINS RETURN ADDRESS 
MOV R1,(SP) ; SETUP RETURN ADDRESS iN STACK 
,65$ TYPE ASCIZ STRING 


64$ SIGE OVER THE ASCIZ 
<CRLF> 


177520 MOV SAVRO,RO RESTORE REGISTERS 


SAVRS .R5 
s RETURN 


PRTITL: 
2 


911 007142 
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TRAP 


TABLE 
912 007144 
913 007146 
914 007150 
915 007152 
007152 
007156 


007402 
928 007402 


007404 
007432 
007460 
104401 
000407 
000207 
104401 
000407 
000207 
104401 
000407 
000207 
104401 
000407 
000207 
104401 
000407 
000207 
104401 
000407 
000207 
104401 
000407 


000207 


007160 


007206 


007234 


007262 


007310 


007336 


007364 


MACRO M1111 


2 2658: 


64$: 


32678: 


66$: 


5,698: 


68$: 


;371$: 


70$: 


--73$: 


72$: 


-°75§: 


74$: 


;377$: 


76$: 


25*SEP=79 


10 
11 
12 


AAA 


1$: 
TYPE 
BR 
-ASCIZ 


E 4 
12:55 PAGE 74-7 


,65$ 
4 
/ EXPDAT 
RTS PC 
,67$ 
66$ 
/ RECDAT 
ATs. PC 
69$ 
68$ 
/ EXP.ADD 
RTS PC 
7 1$ 
70$ 
jf REC.ADD 
RTS PC 
,73$ 
72$ 
ff EXP.SP1 
RTS PC 
7 5$ 
74$ 
/ REC.SP1 
RTS PC 
($$ 
76$ 
/ EXP. PSW 
RTS PC 


3i TYPE ASCIZ STRING 
:2GET OVER THE ASCIZ 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


3eTYPE ASCJZ STRING 


P 3iGET OVER THE ASCIZ 


3eTYPE ASCIZ STRING 


P 3;GET OVER THE ASCIZ 


33 TYPE ASCIZ STRING 


/ 32GET OVER THE ASCiZ 


si TYPE ASCIZ STRING 


j 32GET OVER THE ASCIZ 


si TYPE ASCIZ STRING 


F 77GET OVER THE ASCIZ 


ae 


SEQ 0043 


FG 
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TRAP TABLE 
930 007404 10$: 
007404 104401 007412 TYPE 79$ rz TYPE ASCIZ STRING 
007410 000407 BR .. ee +:GET OVER THE ASCIZ 
SASCIZ. /— REC.PSW 


007430 


931 007430 000207 RTS PC 
932 007432 11$: 
007440 TYPE ,81$ 33 TYPE ASCIZ STRING 


BR 80$ 
s-Oie: ASCH .# VIR.ADD 
R0$: 


007432 104401 
007436 000407 32GET OVER THE ASCIZ 


007456 
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TRAP TABLE SEQ 0045 


934 007456 000207 RTS PC 








CKK 
TRA 


ACAQ 11/44 POWER FAIL 
P TABLE 


936 007460 
007460 
007464 
007504 

937 007504 

938 

939 

940 

941 

942 007506 


007636 
969 007640 
970 007642 


104401 
000407 


000297 


016746 
104402 
000207 


016746 
104402 
006207 


016746 
104402 
000207 


016746 
104402 
000207 


016746 


016746 
104402 
000207 


916746 
104402 
000207 


007466 


000140 


000132 


000124 


000116 


000110 


000102 


000074 


000066 


000060 


H 4 
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-83$: 
$: 


PRDATA: 


12$: 
TYPE 


BR 
eASCIZ 


83$ 


/ 
RTS 


PAR . OF F 
PC 


~EVEN 


EXPDAT ,-(SP) 


RTS 


PC 


RECDAT,=-(SP) 


RTS 
EXP 
RTS 


REC. 


RTS 


EXP. 


RTS 


REC. 


RTS 


EXP. 


RTS 


REC. 


RTS 
VIR 
RTS 


PC 


-ADD ,-(SP) 


PC 
ADD ,~(SP) 
PC 
SP ,-(SP) 
PC 
SP1,=(SP) 
PC 
PSW,=(SP) 
PC 
PSwW,=(SP) 
PC 


-ADD , = (SP) 


PC 


32TYPE ASCIZ STRING 


, 33GET OVER THE ASCIZ 


73SAVE EXPDAT FOR TYPEOUT 
33GO0 TYPE=-OCTAL ASCIICALL 


77 SAVE RECDAT FOR TYPEOUT 
32GO TYPE--OCTAL ASCII(ALL 


37SAVE EXP.ADD FOR TYPEOUT 
33G0 TYPE--OCTAL ASCII (ALL 


;;SAVE REC.ADD FOR TYPEOUT 
32G0 TYPE=-OCTAL ASCII (ALL 


3iSAVE EXP.SP1 FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII (ALL 


77SAVE REC.SP1 FOR TYPEOUT 
32G0 TYPE--OCTAL ASCII (ALL 


32SAVE EXP.PSwW FOR TYPEOUT 
32G0 TYPE=-OCTAL ASCII (ALL 


3:SAVE REC.PSW FOR TYPEQUT 
32G0 TYPE=-OCTAL ASCII(ALL 


3:SAVE VIR.ADD FOR TYPEOUT 
32G0 TYPE=-OCTAL ASCIICALL 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


DIGITS) 


SEQ 0046 


ae) 
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TRA SEQ 0047 

007642 016746 000052 MOV PAR OFF .=(SP) :,SAVE PAR.OFF FOR TYPEOUT 
007646 104402 TYPOC 32GO TYPE=-OCTAL ASCII(ALL DIGITS) 

971 007650 000207 RTS PC 

972 

973 

974 007652 PRTABL: 

975 007652 007676 EXPDAT 

976 007654 007700 RECDAT 

977 007656 007702 EXP. ADD 

978 007660 007704 REC.ADD 

979 007662 007706 EXP.SP1 

980 00 007710 REC.SP1 

981 007666 007712 EXP. PSwW 

982 007670 007714 REC .PSw 

983 007672 007716 VIR.ADD 


984 007674 007720 PAR . OF F 
985 


C 
T 
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RAP TABLE 


0 
1000 Bioois 


ead ad and and wah and 


1002 . 
1003 010125 


000000 
000000 
000000 
000000 
000000 


111 


RURGRSAUS 
ONM—DNOO Ff -2 S S| AH RNS D 
OES AWNUT 0 NUID OO NO NOWWU 


4 SS 3 OO OP PS BS OS SS SS 2 0 2 OO 


oOo] S DONINONN-- 
OAENAKNAONMWON Nvito 


000 
015 


O-=>=007% o> 
WMO & HP HWE AWS & wn 


RSS 


oO0o—-00—-00 - -] -$OoO- -=§ = 00—- + = 
x B&R kROO--—- Oo 


—_ 
MMM NMNYVIO OO NM COMO -CNUNNOS 


o---0o--——— 
—O- fF = - Oo 


Le) 
— 
N 


MACRO M1111 


o--- $0 -] OS -2 = o--'-O- Se 
=—FOMONMENMSL—-ONONM —-—-ONENNM-=> 
MROFSOWNONONDUMNO UNNMWORWEO 


al 
N 
Oo 


EXPDAT: 


JI & 

25=-SEP=79 12:55 PAGE 79 
RECDAT: 
D: 


0 
0 
0 
0 
: 0 
: .WORD 0 
0 
0 
9 
0 
A 


SEG 0048 


. WORD 
. WORD 


: .ASCIZ <15><12>*CKKACAO 11/44 POWER FAIL+ 


TITLE: .ASCIZ <15><12>+#CKKACAO 11/44 POWER FAIL +<15><12> 


BOOT: .ASCIZ <15><12>+BOOT ENABLE SWITCH MUST BE OFF +<15><12> 


UPF: .ASCIZ <15><12>+POWER UP BEFORE POWER DOWN COMPLETE+*<15><12> 


DOWN: .ASCIZ <15><12>+#POWER DOWN BEFORE UP COMPLETE*<15><12> 
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TRA LE SEQ 0049 
010130 117 127 105 
010133 122 040 104 
010136 117 127 116 
010141 040 102 105 
010144 106 117 122 
010147 105 040 125 
010152 120 040 103 
010155 117 115 120 
010160 114 105 124 
010163 105 015 012 
010166 000 
1004 
1005 
1006 
1007 
1008 
1009 ~EVEN 
1010 010170 000000 END: 0 
1011 000001 ~ END 
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ABLE SEQ 0050 


IOTVEC= 000020 170256 


ae 


EESESEeEeeeeE 


2 
005012 170252 L31= SAVR2 006624 
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SYMBOL TABLE SEQ 0051 
SAVR3 006626 STACK1= 000500 TST5 003370 xvZ 001420 $MSGAD 001130 
SAVRS 006630 STKLMT= 177774 TST6 003500 $APTHD 001100 $MSGLG 001132 
SAVRS 006632 SUPSTK= 000700 TST7 003620 $SATYC 001174 SMSGTY 001114 
SAV6 005050 SWR = 177570 TYPDS = 104405 $ATY1 0011 SMTYP1 001145 
SCOPE = SWREG 000176 TYPE = 104401 $ATY3 001156 $NULL_. 006500 
= 172260 SwO. = 000001 TYPOC = 104402 $ATY4 001166 $NWTST= 000001 
SDPAR1I= 172262 SwOO = 000001 TYPON = 104404 $SCHARC 006470 SOCNT 005712 
SDPAR2= 172264 SwO1 = 000002 TYPOS = 104403 $CORE 005370 005714 
SDPAR3= 1722 SwO2 = 000004 UDPARO= 177660 $CPUOP 001142 $PASS 001122 
SDPARG4= 172270 SwO3 = 000010 UDPAR1= 177662 $CRLF 006505 SPASTM 001106 
SDPARS= 172272 SWw04 = 000020 UDPAR2= 177664 $CROUT 005420 $QUES 504 
= 172274 SwOS = UDPAR3= 177666 $DB 006132 004232 
SDPAR7= 172276 Ss = UDPAR4= 177670 $SDEVCT 001124 $SAVPC= 000204 
= 172220 SwO7 = 000200 UDPARS= 177672 $DOAGN 004230 $SETUP= 4 
SDPDR1= 172222 SwO8 = UDPAR6= 177674 $DTBL 006122 $SIZE 005162 
SDPDR2= 172224 SwO9 = UDPAR7= 177676 SENDAD 004220 $SIZEX 005424 
SDPDR3= 172226 Sw1_ = 000002 UDPDRO= 177620 ENDCT 004166 $STUP = 177777 
SDPDR4= 172230 Sw10 = 002 UDPDR1= 177622 SENDMG 004237 $SVPC = 000204 
SDPDR5= 172232 SW11 = UDPDR2= 177624 SENULL 004234 Ss = 04 
SDPDR6= 172234 Swi2 = 010000 UDPDR3= 177626 SENV 001134 $SWREG 001136 
= 172236 SW13 = 020000 UDPDR4= 177630 SENVM = 001135 $TESTN 001120 
SIPARO= 172240 SW14 = 040000 UDPDR5= 177632 SEOP 004142 KB 2 
SIPAR1= 172242 Sw15 = 100000 UDPDR6= 177634 SEOPCT 004160 $TKS 006510 
SIPAR2= 172244 SW2 = 000004 UDPDR7= 177636 SERROR 006566 $IN = 12 
SIPAR3= 172246 SW3 == 000010 UIPARO= 177640 SETABL 001134 $T 76 
SIPAR4= 172250 SW4 == 000020 UIPAR1= 177642 SETEND 0011 STPFLG 006503 
SIPARS= 172252 SWS == 000040 UIPAR2= 177644 $SFATAL 001116 $TPS 006474 
SIPAR6= 172254 SWw6 == 000100 UIPAR3= 177646 SFFLG 001414 STRAP 006514 
SIPAR7= 17225% SW7 == 000200 UIPAR4= 177650 $FILLC 006502 STRAP2 006536 
SIPDRO= 1722 Sw8 = 000400 UIPARS= 177652 $FILLS 006501 TRP = 
SIPDR1= 172202 Ss = UIPAR6= 177654 $GET42 210 $TRPAD 006550 
SIPDR2= 172204 SYSTID= 177764 UIPAR7= 177656 HD = 000000 STSTM 
SIPDR3= 172206 TBITVE= 000014 UIPDRO= 177600 $HIBTS 001100 $TYPDS 005716 
SIPDR4= 172210 TITL UIPDR1= 177602 SK TNE X 5362 TYPE 006142 
SIPDRS= 172212 TITLE 007755 UIPDR2= 177604 $KTOUT 00 STYPEC 006354 
SIPDR6= 172214 TKVEC = UIPDR3= 177606 $KT11 005220 STYPEX 72 
SIPDR7= 172216 TPVEC = 000064 UIPDR4= 177610 $LF 006506 $TYPOC 005514 
SIZEHI= 177762 TRAPVE= 000034 UIPDR5= 177612 $SLFLG 001413 $TYPON 005530 
SIZELO= 1777 TRTIVEC= UIPDR6= 177614 $LSTAD 00 $TYPOS 005470 
SRO = 177572 TST1 002332 UIPDR7= 177616 $LSTBK 005466 001126 
SRI = 177574 TST10 003720 UPF 01005 $MADR1 001146 SUNITM 001110 
SR2 = 177576 TST11 =©004 USESTK=_ 000600 SMAIL 001114 $USWR 001140 
SR3 = _172516 TST2 002554 USP  =%000006 SMAMS 1 4s $$GET4= 000000 
SSP  =%000006 TS13 003904 UVEC 005040 $MBADR 001102 SOFILL 005713 
STACK = 001100 TST4 003264 VIR. AD 007716 $MFLG 901412 -$X = 001100 


- ABS. 010172 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 59304 WORDS ex, PAGES) 
DYNAMIC MEMORY: 20434 WORDS ( 78 PAGES 

ELAPSED TIME: 00:03: 

CKKACAO, CKKACAO/NL : TOC/CRF /~SP=CKKACAO. SML , CKKACAO.P11 


CKKACAO CREATED BY MACRO ON 25=SEP=79 AT 12:56 cmt 1 


SYMBOL CROSS REFERENCE SEQ 0052 
YMBOL VAL 


S VALUE REFERENCES 
ABASE = 000000 64-337 
ACDWI = 000000 64-337 
ACDW2 = 000000 64-337 ‘ 
ACPUOP = 000000 64-337 64-337 
ADDWO = 000000 64-337 
ADDWI = 000000 64-337 
ADDWI0 = 000000 64-337 
ADDW11 = 000000 64-337 
ADDWi2 = 000000 64-337 
ADDW13 = 000000 64-337 
ADDW14 = 000000 64-337 
ADDW15 = 000000 64-337 
ADDW2 = 000000 64-337 
ADDW3 = 000000 64-337 
ADDW4 = 000000 64-337 
ADDWS = 000000 64-337 

= 000000 64-337 
ADDW7 = 000000 64-337 
ADDW8 = 000000 64-337 
ADDW9 = 000000 64-337 
ADEVCT = 000009 64-337 64337 
ADEVM = 000000 64-337 
AENV = _ 000000 64-337 64-337 
AENVM = 000000 64-337 64-337 
AFATAL = 000000 64-337 64-337 
AMADR1 = 000000 64-337 64-337 
AMADR2 = 000000 64-337 
AMADR3 = 000000 64-337 
AMADR4 = 000000 64-337 
AMAMS1 = 000000 64-337 64-337 
AMAMS2 = 000000 64-337 
AMAMS3 = 000000 64-337 
AMAMS4 = 000000 64-337 
AMSGAD = 000000 64-337 64-337 
AMSGLG = 000000 64-337 64-337 
AMSGTY = 000000 64-337 64-337 
AMTYP1 = 000000 64-337 64-337 
AMTYP2 = 000000 64-337 
AMTYP3 = 000000 64-337 
AMTYP4 = 000000 64-337 
APASS = 000000 64-337 64-337 
APF 0021 34 64-394 #64-397 
APRIOR = 000000 64-337 
APTCSU = 000040 #64-338 74-816 
APTENV = 000001 64-338 664-338 "4-816 
APTSIZ = 000200 464-338 64-34 
APTSPO = 000100 64-338 464-338 = 74-816 
ASWREG = 64-337 64-33 
ATESTN = 000000 64-337 64-337 
AUNIT = 000000 64-337 64-337 
AUSWR = 000000 64-337 64-337 
AVECT1 = 000000 64-33 


CKKACAO 
SYMBOL C 


ROSS REFERENCE 
AL 


pronrnninnnhnnrnnnnnnnnnnnnnne 


CREATED BY MACRO ON 25-SEP=79 AT 12:56 


wy as a 


5 
464-325 


64-346 


#79-1000 


64-348 
67-654 


71-734 


73-804 


64-355 


#70-682 


74-816 
64-397 


#72-792 
64-346 


72-772 


PAGE 2 
CREF 


64-398 


472-788 
#79-1010 


64-443 
66-594 


64-346 


64-400 


65-472 
66-614 


65-560 


74-816 


65-483 
67-635 


65-567 


74-816 


65-494 
70-698 


65-573 


SEQ 0053 


74-855 74-855 


65-525 65-536 
#74-833 


65-582 66-589 









att boat - oe. dE ene eee Seed ob a ga 














CKKACAO CREATED BY MACRO ON 25-SEP=79 AT 12:56 ome 3 


SYMBOL CROSS REFERENCE SEQ 0054 
SYMBOL VALUE gy Aa ale 


67-627 67-641 73-810 73-810 73-810 73-810 73-810 73-810 
EXPDAT 007676 *70-696 70-701 77-952 77-975 479-988 


EXP.AD 007702 *64-430 64-434 *65-492 65-496 *65-534 65-538 77-956 77-977 479-990 
EXP.PS 007712 *64-441 64-445 *65-481 65-485 *65-545 65-549 77-964 77-981 479-994 
EXP.SP 007706 64-418 64-422 *65-470 65-474 *65-523 65-527 77-960 77-979 479-992 
FIN 007060 74-883 #74-893 

FLAG 005052 *66-588 *72-744 *72=745 #72-790 

FT 002264 64-396 #64-400 68-657 

GNS = eeeeee 64-326 64-326 64-392 64-395 64-397 64--398 64-400 64-410 65-460 


74-923 74-925 74-927 75-930 75-932 77-936 


HIADRS = 177742 #64-325 71-724 

HITMIS = 177752 #64-325 

HT = 000011 #64-325 74-816 74-816 
ILLDWN 005024 72-763 #72-779 

ILLUP 005012 72-746 #72-775 

IOTVEC = 20 #64-325 

KDPARO = 172360 #64-325 

KDPAR1 = 172362 #64-325 

KDPAR2 = 172364 #64-325 

KDPAR3S = 172 #64-325 

KDPAR4 = 172370 #64-325 

KDPARS = 172372 464-325 

KDPAR6 = 172374 #64-325 

KDPAR? = 172376 #64-325 

KDPDRO = 172320 #64-325 

KDPDR1 = 172322 #64-325 

KDPDR2 = 172324 #64-325 

KDPDR3 = 172326 #64-325 

KDPDR4 = 172330 #64-325 

KDPDRS = 172332 #64-325 

KDPDR6 = 172334 #64-325 

KDPDR7 = 172336 #64-325 

KERSTK = 001100 #64-325 

KIPARO = 172340 #64-325 73-796 73-810 73-810 
KIPAR1 = 172342 #64-325 

KIPAR2 = 172344 #64-325 

KIPAR3 = 172 #64-325 

KIPAR4 = 172350 #64-325 

KIPARS = 172352 #64-325 69-673 70-695 70-710 73-798 
KIPAR6 = 172354 #64-325 73-800 

KIPAR7? = 172356 #64~-325 73-802 73-810 
KIPDRO = 172300 #64-325 73-797 

KIPDR1 = 172302 #64-325 

KIPDR2 = 172304 #64-325 

KIPDR3 = 172306 #64-325 

KIPDR4 = 172310 #64-325 

KIPDRS = 172312 #64~-325 73-799 

KIPDR6 = 172314 #64-325 73-801 





CKKACAO 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
KIPDR? = 172316 
PRS 
LIMIT 00505 
LKS = 177546 
LKVEC = 1 
LOAD 254 
LOADRS = 177740 
LRTI 001422 
MAINT = 177750 
MAP 5060 
MAPHO = 170202 
MAPHOO = 170202 
MAPHO1 = 170206 
MAPHO2 = 170212 
MAPHO3 = 170216 
MAPHOS = 170222 
MAPHOS = 170226 
MAPHO6 == 170232 
MAPHO7 = 170236 
MAPH1 = 170206 
MAPH10 = 170242 
MAPH11 = 170246 
MAPH12 = 170252 
MAPH13 = 170256 
MAPH14 = 170262 
MAPH15 = 170266 
MAPH16 = 170272 
MAPH17 = 170276 
MAPH2 = 170212 
MAPH20 = 170302 
MAPH21 = 170306 
MAPH22 = 170312 
MAPH23S = 170316 
MAPH24 = 170320 
MAPH2S = 170326 
MAPH26 = 170332 
MAPH27 = 170336 
MAPHS = 170216 
MAPH = 170342 
MAPH31 = 170346 
MAPH32 = 170352 
MAPH33 = 170356 
MAPH34 = 170362 
MAPH35 = 170366 
MAPH36 = 170372 
MAPH37 = 170376 
MAPHG = 170222 
MAPHS = 170226 
MAPH6 == ~ 170232 
MAPH7? = 170236 
MAPLO = 170200 


CREATED BY MACRO ON 25=SEP=79 AT 12:56 


REFERENCES 
# $7352 73-803 


#64-325 64-395 
str -e38 69-662 


5 
67-647 #69-661 
#64-325 71-726 
964-344 65-511 


464-325 


64-397 
70-683 


65-532 
70-682 


PAGE 4 
CREF 


64-398 
#72-791 


65-534 
473-796 


74-816 


74-816 


CKKACAO CREATED BY MACRO ON 25=SEP=79 AT 12:56 oma 5 


SYMBOL CROSS REFERENCE SEQ 0056 
MBOL LUE 


SY VA REFERENCES 

MAPLOO = 170200 #64-325 4-325 

MAPLO1 = 170204 #64-325 64-325 

MAPLO2 = 170210 #64-325 64-325 

MAPLO3 = 170214 #64-325 64-325 

MAPLOS4 = 170220 #64-325 64-325 

MAPLOS = 170224 #64-325 64-325 

MAPL = 170230 #64-325 64-325 

MAPLO7 = 170234 #64-325 64-325 

MAPL1 = 170204 #64-325 

MAPL10 = 170240 #64-~-325 

MAPL11 = 170244 #64-325 

MAPL12 = 170250 #64-325 

MAPL13 = 170254 #64-325 

MAPL14 = 170260 #64-325 

MAPL15 = 170264 #64~-325 

MAPL16 = 170270 #64-325 

MAPL17 = 170274 464-325 

MAPL2 = 170210 #64-325 

MAPL20 = 170300 #64-325 

MAPL21 = 170304 #64-325 

MAPL22 = 170310 #64-325 

MAPL23 = 170314 #64-325 

MAPL24 = 170320 #64-325 

MAPL25 = 170324 #64-325 

MAPL26 = 170330 #64-325 

MAPL27 = 170334 #64-325 

MAPL3 = 170214 #64-325 

MAPL30 = 170340 #64-325 

MAPL31 = 170344 #64-325 

MAPL32 = 170350 #64-325 

MAPL33 = 170354 #64-325 

MAPL34 = 170360 #64-325 

MAPL35 = 170364 #64-325 

MAPL36 = 170370 #64-325 

MAPL37 = 170374 #64-325 

MAPL4 = 170220 #64-325 

MAPLS = 170224 #64-325 

MAPL6 = 170230 464-325 

MAPL7 = 170234 #64-325 

MEMERR = 177744 464-325 71-731 71-737 71-737 

MMERR 005156 73-805 #73-807 73-808 

MMRO = 177572 at 64-325 67-632 67-639 69-667 69-674 69-676 70-688 70-711 

MMR | = 177574 #64-325 64-325 

MMR = 177576 #64-325 64-325 

MMR 3 = 172516 #64~-325 64-325 73-804 
= 250 #64-325 67-629 69-664 70-685 73-805 

PARERR 004554 64-348 471-71 

PARFLG 004556 64-349 #71-720 *71-738 

PAR . OF 007720 «70-695 70-700 77-970 77-984 #79-997 


PFAIL 001416 #64-340 *64-369 64-372 *64-378 64-393 64-413 65-464 65-513 65-562 
65-575 66-592 66-609 67-631 67-651 j 


5 


CKKACAO CREATED BY MACRO ON 25-SEP=79 AT 12:56 = PAGE 6 

SYMBOL CROSS REFERENCE CREF SEQ 0057 

SYMBOL VALUE REFERENCES 

PIRQ. = 177772 #64-325 

PIRQVE = 000240 #64-325 

PNAME 007722 #79-998 

POWDWN 004654 64-367 —-#72=744 72-772 

POWUP 004750 72-759 = -#72=763 

PRDATA 007506 74-881 —-#77-942 

PRETST 002274 64-386  #64-401 

PRTABL 007652 74-858 74-880  #77=974 

PRTITL 007126 74-859  —-#74~905 

PRO = #64-325 

PRI = 464-325 

PR2 = 000100 #64-325 

PR3. ss =: 000140 #64~325 

PRG = 000200 #64-325 

PRS = 000240 #64~325 

PRE = 00030 #64-325 

PR? = 000340 #64-325 

PS = 177776 #64-325 64-325 64-411 #65=4662 65-508 = 65-559 ss 65-577 «66-587 ss 6-606 
67-626 67-646 

PSW = (177776 #64-325 

PWRVEC = 000024 #64-325 . 

RECDAT 007700 *70-697 70-702 77-954 77-976  —-#79-989 

REC.AD 007704 #64-431 64-435 —#65=493 65-497 865-535 65-539 77-958 77-978  #79-991 

REC-PS 007714 64-442 64-446 65-482 65-486 = 65-546 = 65-550 77-966 77-982 —-#79-995 

REC.SP 007710 #64-419 64-423 #65-471 65-4675 #6 5-524 65-528 77-962 77-980  #79-993 

RESVEC = 10 #64-325 

R10 =%000000 #64~325 

R11 =%000001 #64-325 

R12 =%000002 #64-325 

R13. =%000003 #64~325 

R14 =%000004 #64-325 

R15 =%000005 #64~325 

R6 =%000006 #64-325 

R? =%000607 #64-325 

SAVRO 006620 74-838 = #74-845 74-897 

SAVR1 006622 #74-839 74-846 74-898 

SAVR2 006624 *74-840 74-847 74-899 

SAVR3 —»- 006626 *74-841 —-#74-848 74-900 

SAVR4 006630 *#74-842 #74849 74-901 

SAVRS ss: 0066 32 *74-843 74-850 74-902 

SAV6 005050 *72-757 72-764 =~ #72=789 

SCOPE = #64-32 

SDPARO = 172260 #64-325 

SDPAR1 = 172262 464-325 

SDPAR2 = 172264 #64~325 

SDPAR3 = 172266 #64-325 

SDPARG = 172270 #64-325 

SDPARS = 172272 #64-325 

SDPAR6 = 172274 #64~325 

SDPAR? = 172276 #64-325 

SDPDRO = 172220 #64-325 

SDPDR1 = 172ce¢ #64-325 





ci * tanliniconns lies ake diated Seiad Tn i ee ROT ES, he Oe eee 
CKKACAO _ CREATED BY MACRO ON 25-SEP=79 AT 12:56 PAGE 7 


SYMBOL CROSS REFERENCE CREF SEQ 0058 
SYMBOL V REFERENCES 

SDPDR2 = 172224 #64-325 

SDPDR3 = 172226 #64-325 

SDPDR4 = 172230 #64-325 

SDPDRS = 172232 64-325 

SDPDR6 = 172234 #64-325 

SDPDR7? = 172236 #64-325 

SIPARO = 172240 #64-325 64-406 72-758 72-765 
SIPAR1 = 172242 #64-325 64-407 

SIPAR2 = 172244 #64-325 64-408 

SIPAR3 = 172246 #64-325 64-409 

SIPAR4 = 172250 464-325 

SIPARS = 172252 #64-325 

SIPAR6 = 172254 #64-325 

SIPAR? = 172256 #64-325 

SIPDRO = 172200 #64-325 

SIPDR1 = 172202 #64-325 

SIPDR2 = 172204 #64-325 

SIPDR3 = 172206 #64-325 

SIPDR4 = 172210 #64-325 

SIPDORS = 172212 #64-325 

SIPDR6 = 172214 #64-325 

SIPDR7 = 172216 #64-325 

SIZEHI = 177762 64-325 

SIZELO = 

SRO = 177572 #64-325 73-810 73-810 73-810 
SR1 = 177574 64-325 

SR2 = 177576 #64-325 

SR3 = 172516 #64-325 73-810 

SSP = #64-325 

STACK = 001100 #64-325 64-325 64-325 64-325 64-346 64-416 64-426 64-427 64-438 


65-461 65-467 65-468 65-478 65-489 65-509 65-517 65-519 65-521 
65-531 65-542 65-563 65-576 65-581 66-608 66-617 67-633 67-640 


STACK1 = 000500 464-327 64-420 64-432 64-443 65-472 65-483 65-494 65-525 65-536 
65-547 65-565 65-579 66-594 66-614 67-635 70-698 

STKLMT = 177774 #64-325 

SUPSTK = 000700 #64-325 

SWR = 177570 #64-342 64-343 *64-346 64-346 *64-346 *64-346 64-449 65-500 65-553 
65-568 65-583 66-601 66-618 67-642 67-655 

SWREG 000176 464-326 64-346 

SwO = 1 #64-325 

SwOO = 000001 #64-325 64-325 

Sw01 = 000002 #64-325 64-325 

Sw02 = #64-325 64-325 

Sw03 = 000010 #64-325 64-325 

Sw04 = 000020 464-325 64-325 

SwO05 = 0 464-325 64-325 

SWwO6 = 000100 464-325 64-325 

SwO7 = 000200 #64-325 64-325 

SwO08 = 00 #64-325 64-325 

SwO9 = 001000 464-325 64-325 

Sw = 000002 #64-325 


CKKACAO 
SYMBOL CROSS REFERENCE 
MBOL VALUE 


tie 


i 


nHhnh huh iu tee 


CREATED BY MACRO ON 25=SEP=79 AT 12:56 


177620 


REFERENCES 
#64-325 


464-325 


64-449 


#74-852 
#79-999 


64-346 


65-500 


64-346 


#74-820 


77-970 


PAGE 8 
CREF 


65-553 


65-568 


77-956 


65-583 


66-601 


66-618 


67-642 


SEQ 0059 


CKKACAO CREATED BY MACRO ON 25-SEP-79 AT 12:56 PAGE 9 


SYMBOL CROSS REFERENCE CREF SEQ 0060 
SYMBOL VALUE REFERENCES 
UDPDR1 = 177622 #64-325 
UDPDR2 = 177624 #64-325 
UDPDR3 = 177626 #64-325 
UDPDRS4 = 177630 #64-325 
UDPDRS = 177632 #64-325 
UDPDR6 = 177634 #64-325 
UDPDR7 = 177636 #64-325 
UIPARO = 177640 #64-325 
UIPAR1 = 177642 #64-325 
UIPAR2 = 177644 #64-325 
UIPAR3S = 177646 #64-325 
UIPARG = 177650 #64-325 
UIPARS = 177652 #64-325 
UIPAR6 = 177654 #64-325 
UIPAR7 = 177656 #64-325 
UIPDRO = 177600 #64-325 
UIPDR1 = 177602 464-325 
UIPDR2 = 177604 #64-325 
UIPDR3 = 177606 #64-325 
UIPDR4 = 177610 #64-325 
UIPDRS = 177612 #64-325 
UIPDR6 = 177614 #64-325 
UIPDR7 = 177616 #64-325 
UPF 010055 72-776 #79-1001 
USESTK = 000600 #64-325 
USP =%000006 #64-325 
UVEC 005040 72-746 72-759 #72-787 
VIR.AD 007716 *70-692 *70-693 * 70-694 70-699 77-968 77-983 #79-996 
xvZ 001420 #64-341 64-378 64-393 
SAPTHD 001100 64-336 #64-336 
SASTAT = xeewne 64-338 64-338 
SATYC 001174 64-338 464-338 
$SATY1 001150 464-338 
SATY3 001156 #64-338 74-816 
SATYS 001166 #64-338 
SCHARC 006470 *74-816 *74-816 74-816 *74-816 #74-816 
SCKSWR = weeewe 74-820 
SCMTAG = *eeene 64-346 64-346 
SCORE 005370 73-810 #73-810 
$CPUOP 001142 #64-337 
SCRLF 006505 74-816 74-816 74-816 474-816 
$CROUT 005420 73-810 #73-810 
SDBLK 006132 74-815 74-815 474-815 
SDEVCT 001124 #64-337 
230 68-657 68-657 468-657 
$DTBL 006122 74-815 #74-815 
SENDAD 004220 64-334 64-585 468-657 
SENDCT 004166 64-346 #68-657 
SENDMG 004237 68-657 468-657 
SENULL 004234 64-410 65-460 65-507 65-558 65-572 66-586 66-605 67-625 67-649 


68-657 #68-657 74-875 74-889 


CKKACAO CREATED BY MACRO ON 25-SEP-79 AT 12:56 omer 10 


SYMBOL CROSS REFERENCE SEQ 0061 
SYMBOL VALUE REFERENCES 
SENVM 001135 #64-337 64-338 64-346 74-816 74-816 
SEOP 004142 #68-65 
SEOPCT 004160 #64-346 #68-657 468-657 
SERROR 006566 64-330 65-518 474-838 
SE TABL 001134 #64-337 
SE TEND 001150 64-336 #64-337 . 
SFATAL 001116 #64-337 64-338 
SFFLG 001414 *64-338 *64-338 64-338 #64-338 464-338 
SFILLC 006502 74-816 74-816 74-816 474-816 
SFILLS 006591 74-816 74-816 474-816 
$GET42 004210 #68-657 
SGTSWR = xeaeee 74-820 
= 64-289 64-289 64-289 
SHIBTS 001100 #64-336 
SK TNEX 005362 73-810 #73-810 
$KTOUT 005352 73-810  #73-810 
$KT11 005220 *64-555 #73-810 *73-810 *73-810 
SLF 006506 74-816 74-816 474-816 
SLFLG 001413 *64-338 #64-338 
$SLSTAD 005464 *73-810 #73-810 
$LSTBK 005466 64-357 64-358 «73-810 473-810 
SMADR1 001146 464-337 
SMAIL 001114 64-336 64-336 464-337 64-346 74-816 
SMAMS 1 001144 #64-337 
SMBADR 001102 #64-336 
SMF LG 001412 *64-338 64-338 *64-338 464-338 
SMSGAD 001130 464-337 *64-338 64-338 
SMSGLG 001132 #64-337 *64-338 
SMSGTY 001114 #64-337 64-338 *64-338 64-338 *64-338 
SMTYP1 001145 464-357 
SNULL 5 74-816 74-816 74-816 #74-816 
SNWTST = 000001 #64-410 64-410 464-410 #65-460 65-460 #65-460 #65-507 65-507 #65-507 
#65-558 65-558 #65-558 465-572 65-572 #65-572 #66-586 66-586 #66-586 
#66-605 66-605 #66-605 467-625 67-625 #67-625 #67-645 67-645 #67-645 
SOCNT 005712 «74-814 *74-814 474-814 
SOMODE 005714 «74-814 «74-814 74-814 *74-814 *74-814 474-814 
SPASS 001122 #64-337 *64-346 *64-346 *68-657 *68-657 68-657 68-657 68-657 
SPASTM 001106 #64-336 
S 5 74-816 74-816 474-816 
SRDCHR = *eeaKe 74-820 
SRDDEC = *eeeee 74-820 
SRDLIN = ***8e® 74-820 
SRDOCT = **eene 74-820 
SRTNAD 004232 #68-657 
$SR2A = eeeKRE 74-820 
$SSAVPC = 000204 464-328 64-332 
SSAVRE = #eeeee 74-820 
$SETUP = 000024 #64-333 64-333 464-333 64-333 464-333 64-346 64-346 64-346 64-346 
oe 289 64-346 64-546 64-346 64~346 64-346 64-346 64-346 68-657 
005162 64-356 473-810 


$SIZE 
SSIZEX 005424 73-810 #73-810 





CKKACAO 


SYMBOL CROSS REFERENCE 
SYMBOL 


CREATED BY MACRO ON 25-SEP-79 AT 12:56 


177777 
000204 


007100 


REFERENCES 
#64- #6 


333 4-333 
464-334 64-334 
#64-286 64-289 

64-292 64-346 
67-625 67-645 
464-337 64-346 
464-337 *64-401 
*67-644 74-872 
74-816 74-816 
74-816 74-816 
464-287 64-289 
65-460 465-460 
65-558 65-558 
66-5 66-586 
*66-618 67-625 
*67-649 67-655 
74-816 74-816 
74-816 74-816 
74-816 74-816 
64-346 #74-820 
#74-820 74-820 
#74-820 74-820 
74-820 #74-820 
74-820 74-820 
74-820 #74-820 
#64-336 
74-820 
#74-815 74-820 
64-338 #74-816 
74-816 74-816 
74-816 74-816 
#74-814 74-820 
74-814 474-814 
474-814 74-820 
464-337 
#64-336 
464-337 
468-657 68-65 
*74-814 *74-814 
64-338 64-33 
#64-336 64-336 


64-333 
64-292 
64-410 
68-657 
*65-459 


474-818 


74-814 


PAGE 11 
CREF 


464-333 
64-292 
65-460 
68-657 


*65-506 


64-410 
65-507 
67-625 
#74-816 


474-816 
474-816 


74-820 
474-816 


474-814 


#64-333 


467-625 


74-820 
74-820 
74-820 


74-816 


68-657 
*65-571 


#64-410 


64-292 
66-586 


*66-604 


74-820 
74-820 
#74-820 


467-645 


74-820 
74-820 


CKKACAO 
MACRO CROSS REFE 
MA NAME 


TYPTXT 


SSESCA 
SSNEWT 


$S$SET 

$$SETM 
S$SKIP 
-EQUAT 
-EQUIV 


RENCE 


REFERENCES 
#18-1530 


#64-296 


#64-325 


464-346 


464-325 
464-325 
#64-325 


#64-432 
#66-594 


73-810 


65-500 
#65-500 


74-820 


#64-346 
65-460 


65-460 
464-391 


474-872 


#64-410 
474-820 


#64-325 
#64-325 
#64-325 


CREATED BY MACRO ON 25-SEP-79 AT 12:56 


64-643 
#66-614 


65-553 
#65-553 


465-460 


#64-346 
65-507 


65-507 
68-657 


477-952 


#65-460 
#74-820 


464-325 
#64-325 
#64-325 


PAGE 12 
CREF 


465-472 
#67-635 


65-568 
#65-568 


465-507 


#64-325 
#64-325 
#64-325 


465-483 
#70-698 


65-583 
65-583 


65-558 
65-575 
74-815 
66-587 
74-820 


464-32 
#64-32 
464-32 


Mw 


#65-494 


66-601 
#66-601 


#65-572 
66-592 


66-606 


66-586 


66-586. 


#77-958 


465-572 


#64-325 
#64-325 
464-325 


#65=525 


66-618 
#66-618 


#66-586 
66-609 


67-626 


#66-586 


464-325 
464-325 
464-325 


#65-5 36 


67-642 
#67-642 


#66-605 
67-631 


67-646 


64-410 
66-586 
74-814 


67-625 
67-625 


464-325 
#64-325 
464-325 


465-547 


67-655 
#67-655 


#67-625 
67-651 


64-410 


#67-625 


#64-325 
#64-325 
#64-325 


SEQ 0063 


e - 


CKKACAO CREATED BY MACRO ON 25-SEP-79 AT 12:56 PAGE 13 
MACRO CROSS REFERENCE CREF SEQ 0064 
MACRO NAME REFERENCES 
-325 #64-325 464-325 464-325 464-325 464-325 464-325 464-325 464-325 #64-325 
#64-325 #64-325 #64-325 #64=-325 964-325 464-325 #64-325 #64-325 #64-325 464-325 
#64-325 #64-325 #64-325 

. HE ADE #2-546 464-283 64-289 

.KT11 #5-323 

SETUP #10-1184  #64-283 464-284 464-333 

. SWRHI #3-96 #64-283 64-292 

. SWRLO #64-292 

.SACT1 #52-4977 #64-284 464-334 

.SAPTB #53-5021 #64-284 64-337 

.~SAPTH #54-5277 #64-284 64-336 

. SAPTY #57=-5452 64-284 464-338 

-SASTA #55-5323 

-$CATC #7-909 #64-283 64-326 

-SCMTA #9-1020 

. $DB2D #46-4607 

. $DB2 #48-4730 

-SDIV #45-4510 

. SEOP #27-2166 464-283 #68-657 

. SERRO #29-2647 

.SERRT #30-2842 

. SMULT #46-6647 

. SPOWE #40-4159 #64-283 

. SRAND 441-4234 

. SRDDE #37-3830 

. $RDOC #36-3739 

. SREAD 435-3344 

$SR2AZ #51-4874 

SSAVE #38-3905 

.$SB2D #47-4691 

.$SB20 449-4792 

. $SCOP #28-2401 

$SSIZE #42-4287 #64-284 #73-810 

$SUPR #50-4830 

STRAP #39-4007 #64-284 #74-820 

$TYPB #34-3237 

$TYPD 433-3160  #64-284 #74-815 

$TYPE #31-2929 #64-283 74-816 

$TYPO 432-3 464-283 #74-814 

-$40CA #8-948 ; 
1170 #6-502 464-283 #64-325 


